procedure TForm1.FormCreate(Sender: TObject);
var
a:integer;
b:integer;
begin
    a:=4;
    b:=4;
    if a=b then
      edit1.Text:= 'hola';
end.

function DD(s:string):string;
begin
  result:= s + s + s
end;
/////////////////////////////////////////////////////
procedure TForm1.FormCreate(Sender: TObject);
var
a:string;
begin
    a:='hhh';
    if a = dd('h') then
      edit1.Text:= 'hola';
end.

procedure TForm1.FormCreate(Sender: TObject);
begin
  //..........
end;
 
end.