[[fer21unmsm]]

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;

Hola ecfisa, he probado el código que pones y todo ok funciona bien, pero al principio mencionas un for ¿donde esta ese for?, en todo caso también fijate en la propiedad autosize del formulario debe estar en false para que te funcione, también hechale una ojeada a la propiedad Constrains.

Saludos.