function zum vergleichen zweier zahlen

[KermitFrosch]

ja, dass habe ich ja schon gemacht und es funzt immer noch nicht... kann mir jemand sagen warum?

Delphi-Quellcode:

    function pruefen (a,b:String):boolean;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

function pruefen (a,b:string):boolean;
begin
  if a = b then
   pruefen:=true
  else
   pruefen:=false;
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Durch:Integer;
PIN1,PIN2:string;
ergebnis:boolean;
 begin
  PIN1:=(edit1.text);
  PIN2:='666';
   durch:=+1;
    label1.caption:=Inttostr(durch);
    ergebnis:=(pruefen(pin1,pin2));
   if ergebnis = true then
     panel1.Caption:='true'
   else
    panel1.Caption:='false';
 end;

end.