procedure TForm1.Button1Click(Sender: TObject);
var theform:tform;
begin
theform:=tform.create(self);
with theform do begin
caption:='form';
left:=4;
top:=4;
width:=500;
height:=500;
visible:=true;
end;