Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Project1;
- uses
- DUnitX.MemoryLeakMonitor.FastMM4,
- Vcl.Forms,
- Unit1 in 'Unit1.pas' {Form1};
- {$R *.res}
- begin
- // {$ifdef debug}
- // System.ReportMemoryLeaksOnShutdown:= True;
- // {$endif}
- Application.Initialize;
- {$ifdef debug}
- System.ReportMemoryLeaksOnShutdown:= True;
- {$endif}
- Application.MainFormOnTaskbar := True;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
- end.
- procedure TForm1.Button1Click(Sender: TObject);
- var
- lbl: TLabel;
- begin
- lbl:= TLabel.Create(nil);
- lbl.Parent:= Self;
- lbl.Left:= 10;
- lbl.Top:= 10;
- lbl.Caption:= 'dfskhfjkshjfkhdsjkhskjf';
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement