Código Delphi [-] procedure TForm1.Adicionar1Click(Sender: TObject); var varform4 : Tform4; begin varform4 := Tform4.create(self); try varform4.show; except varform4.free end; end;
procedure TForm1.Adicionar1Click(Sender: TObject); var varform4 : Tform4; begin varform4 := Tform4.create(self); try varform4.show; except varform4.free end; end;