unit Unit1;
interface
uses
const
type
var
implementation
{$R *.dfm}
procedure TForm1.aaa(var msg: TMessage);
begin
end;
procedure TForm1.Button1Click(Sender: TObject);
var
begin
end;
unit Unit1;
interface
uses
const
type
var
implementation
{$R *.dfm}
procedure TForm1.aaa(var msg: TMessage);
begin
end;
procedure TForm1.Button1Click(Sender: TObject);
var
begin
end;