Fórum Criar uma unit com funções. #236660

unit unt_funcoes;

interface
uses
  Windows, SysUtils, Classes, Forms;

// aqui os cabeçalhos das funções/procedures que serão vistas
// às demais units
procedure MsgErro(Text: String);
procedure MsgInfo(Text: String);

implementation

// aqui a implementação das funções/procedures
procedure MsgErro(Text: String);
begin
  Application.MessageBox(Pchar(Text),´Erro´,mb_OK + mb_iconHand);
end;

procedure MsgInfo(Text: String);
begin
  Application.MessageBox(Pchar(Text),´Informação´,mb_OK + mb_iconinformation);
end;

end.

...
var
  frm_login: Tfrm_login;

implementation

uses unt_funcoes;

{$R *.dfm}

procedure Tfrm_login.btn_OKClick(Sender: TObject);
begin
  try
  ...
  except
    on E: Exception do
      begin
        // aqui chamei minha procedure...
        MsgErro(´Ocorreu um erro ao tentar efetuar o Login.´ + #13 + 13 + E.Message);
        ...
      end;
  end;
end;

...
end.