To reproduce:
Place a TButton and a TLabel on a blank VCL application. Use following code, which is from your FAQ:
procedure TForm3.Button1Click(Sender: TObject);
begin
AdvSmoothMessageDialog1.Buttons.Clear;
AdvSmoothMessageDialog1.Position := poScreenCenter;
with AdvSmoothMessageDialog1.Buttons.Add do
begin
ButtonResult := mrOk;
Caption := 'Ok';
end;
with AdvSmoothMessageDialog1.Buttons.Add do
begin
ButtonResult := mrCancel;
Caption := 'Cancel';
end;
if AdvSmoothMessageDialog1.Execute then
Label1.Caption := 'Ok Button clicked';
end;
Run the application. Click on one of the dialog buttons. Close the application.
MadExcept indicates numerous memory leaks of type GdipAlloc, size 16.