showmessage con link

[delphi.com.ar]

Empezado por movorack

Código Delphi [-]
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;

No tendría que ir un except, sino un finally porque en este caso el form solo se liberará si se produce un error.

Saludos!