procedure TForm1.Button1Click(Sender: TObject);
Var a,b: String;
Function Igualdad(Str1, Str2: String): Boolean;
Begin
If Str1=Str2 Then Result:=True Else Result:=False;
end;
begin
a:= '123';
b:= '123';
If Igualdad(a,b) = True Then ShowMessage('Son iguales!') Else ShowMessage('Son diferentes!');
end;