Hilfe bei ascii dualsystem

[gaui]

Ich fang mal mit dem ersten Problem an:

Delphi-Quellcode:

procedure TForm1.Button1Click (Sender: TObject);
var lText,lAsciiErgebnis,lDualergebnis,laktuellerBuchstabe,
lAsciizwischenWert,lDualzwischenwert :string; z,lwert : integer;
begin
     lText:= mText.text  ;
     for z:=1 to length (lText) do
               begin
                    //Ascii umwandeln
                    laktuellerBuchstabe:= lText[z];    //z-ter Buchstabe aus dem gesamten Text
                    lAsciizwischenwert:=hatAsciiControl.TexttoAscii(lAktuellerBuchstabe); // z-ter Buchstabe wird in Ascii umgewandelt
                    lAsciiErgebnis:= lAsciiErgebnis + lAsciizwischenwert;      // zusammenfassen der Ergebnisse bis z die Länge des Textes erreicht

                    lWert:= strtoint(lAsciizwischenwert); //  z-ter Buchstabe der ein Asciiwert also string in integer geändert
                    lDualzwischenwert:=inttostr(hatAsciiControl.AsciitoDual(lWert)); // // z-ter Buchstabe aus Ascii wird in Dual geändert
                    mDual.text:=(lDualzwischenwert);   // Dualsystemwert wird dem memofeld zugewiesen
                    mDual.text:='#';    
                end;
     mascii.text:= lAsciiErgebnis;  // Asciicode wird dem Memofeld zugewiesen

end;

so hier zeigt er in der der Zeile  lDualzwischenwert:=inttostr(hatAsciiControl.AsciitoDual(lWert)); // // z-ter Buchstabe aus Ascii wird in Dual geändert den fehler [Fehler] ASCII.pas(63): Es gibt keine überladene Version von 'IntToStr', die man mit diesen Argumenten aufrufen kann die methode AsciitoDual sieht dann so aus

Delphi-Quellcode:

function TAsciiControl.AsciitoDual (pAscii: integer) : string;
var lWert,lZwischenwert :integer;lendwert,lErgebnis :string;
begin
     lWert:= pAscii;                            // der Wert aus pAscii wird lWert zugewiesen
     repeat
           lzwischenwert:= lwert mod 2;         // teilen mit rest, Ergebnis wird in einer lokalen Variable gespeichert
         //  lendwert:= inttostr(lzwischenwert);  // lzwischenwert wird in einen integer verwandelt
           insert(lendwert,lErgebnis,1);        // lendwert wird an der ersten stelle des strings lergebnis eingefügt, da der Dualwert von hinten gelesen werden muss
     until lwert mod 2 <= 1 ;                    // dies wird solange wiederholt bis lwert durch 2 geteilt wird und als rest entweder 1 oder 0 raus kommt
     result := lErgebnis
end;

leider kann ich das aufgrund des vorrangehenden fehlers nicht uberprüfen

habt ihr ne idee???