Hola
Lo que puedo ayudar:
Codigo 1:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
var
a, b :integer;
begin
a:= 4;
b:= 4;
if a = b then
edit1.Text:= 'hola';
end.
Codigo 2
Código Delphi
[-]
Code2:
function DD(s:string):string;
begin
s:= 'h';
result:= s + s + s;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
a:string;
begin
a:='hhh';
if a = DD then
edit1.Text:= 'hola';
end.
Creo que por ahi va el asunto:
Saludos