function LinkDlg(Caption, Text, Link : String) : TModalResult;
var
mResult : TModalResult;
Dialog : TFormLinkDlg;
begin
Dialog := TFormLinkDlg.Create(Application);
try
Dialog.Caption := Caption;
Dialog.Text := Text;
Dialog.Link := Link;
mResult := Dialog.ShowModal;
except
Dialog.Free;
end;
Result := mResult;
end;