Código Delphi [-]procedure TForm1.FormResize(Sender: TObject); begin Height := 500; Width := 500; end;
procedure TForm1.FormResize(Sender: TObject); begin Height := 500; Width := 500; end;