[ecfisa]

const ALTO=480; ANCHO=696;procedure TForm1.FormCreate(Sender: TObject);begin Height:= ALTO; Width:= ANCHO;end;procedure TForm1.TrackBar1Change(Sender: TObject);begin Height:= ALTO+TrackBar1.Position; Width:= ANCHO+TrackBar1.Position;end;