All pastes #2069101 Raw Edit

Miscellany

public text v1 · immutable
#2069101 ·published 2011-05-25 18:34 UTC
rendered paste body
procedure TForm1.btLagerClick(Sender: TObject);
begin
if not Assigned(Form3)
        then Form3 := TForm3.Create(Application);
Form3.Show
end;