unit Unit4;

interface

uses
  SysUtils, Classes, Windows, Dialogs;

type
  TDMGeral = class(TDataModule)

  private
    { Private declarations }
  public
  end;

var
  DMGeral: TDMGeral;

procedure p_PikaPorva(Texto : String);

implementation

{$R *.dfm}

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

end.