[AlexandrV]

Код:

Function ShowStateDialog1(TextForm,LBL1:String):String;
begin
  Form3.Label1.Caption:=LBL1;
  Form3.Button1.ModalResult:=mrOk;
  Form3.Button2.ModalResult:=mrCancel;
  If Form3.ShowModal=mrOk then
    Result:=Form3.Edit1.Text
  else  Result:='';
end;

А случаем не так