This is cool!


For a form in my project I typed in ShowModel instead of ShowModal and when I clicked on it a stunning image of
Heidi Klum strode accross the screen.

procedure TForm1.Button1Click(Sender: TObject);
begin

TForm2.ShowModel;

end;
.

Quantcast