unit Unit4;

interface

uses
  SysUtils, Classes, Windows, Dialogs;

type
  TDMGeral = class(TDataModule)

  private
    { Private declarations }
  public
     procedure p_PikaPorva(Texto : String);
  end;

var
  DMGeral: TDMGeral;


implementation

{$R *.dfm}

procedure TDMGeral.p_PikaPorva(Texto : String);
begin
    ShowMessage(Texto);
end;

end.