function zum vergleichen zweier zahlen

[KermitFrosch]

Ich möchte ein programm schreiben, welches zwei werte in einer function miteinander vergleicht und an die procedur true oder fals als Boolean zurückgibt. Hier ist mal mein code, irgenwas funzt hier nicht... kann mir einer sagen was?

mfg

der frosch

Delphi-Quellcode:

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,ergebnis:string;
 begin
  PIN1:=(edit1.text);
  PIN2:='666';
   durch:=+1;
    label1.caption:=Inttostr(durch);
    ergebnis:=(pruefen(pin1,pin2));
   if pruefen := true then
     panel1.Caption:='true'
   else
    panel1.Caption:='false';
 end;

p.s.: er macht da irgendwie probleme mit string und boolean...