Inkompatible Typen integer boolean

[thechus]

Hmm...

Hier die Stelle, an der ich die Prozedur benutze:

Delphi-Quellcode:

var
  Form1: TForm1;
  gt, ka,ga, ga2, schlwort: string;
  lenT, lenA, schluessel, schl, lenSchl: integer;
  c: char;

procedure TForm1.ErzeugeGa();
var
  i, Wert1, Wert2: integer;
  c: char;
begin

    if Edit1.Text = '' then Showmessage('Invalid Key')
    else
    begin
      ga := '';
      addition(i);
      lenA := length(ka);
      SchlWort := Edit1.Text;
      schl := pos(SchlWort[1],ka);
      LenSchl := length(SchlWort);
       if  pos(SchlWort[1],ka) = 0 then Showmessage('Invalid Key')
        else
          For i := 1 to LenA do
           begin
             c := ka[i];
             Wert1 := ord(c);
             Wert2 := ((Wert1 - 44)* schl mod 79) + 44;
             ga := ga + chr(Wert2);
          end;
     Panel1.Caption := ga;
     Panel2.Caption := ka;
       end;

    end;

Hoffentlich hilft das etwas...