[Alegun]

Примерно так

Код:

Function ShowStateDialog1(TextForm: string; var LBL1:String): boolean;
begin
 Result:= false;
 if Form3.Button1.ModalResult= mrOk then
  begin
   LBL1:= Form3.Edit2.Text;
   Result:= true;
  end;

 if Form3.Button1.ModalResult= mrCancel then exit;
end;

// пример вызова
var
 s: string
begin

 if ShowStateDialog1('бла-бла', s) then Edit22.Text:= s;

end;

З.Ы. Ми пардоне, не заметил

Можно поинтересоваться когда ставят Var а когда Const а когда вообще ничего не ставят

var - когда нужно вернуть из функции значений больше чем одно
Const - чтоб быть уверенным что переданное значение не изменится
без всего - просто передать параметры