Hola de nuevo.
A ver si esto te sirviera:
Código:
procedure TForm1.Button1Click(Sender: TObject);
var
N: SmallInt;
begin
for N := 0 to ComponentCount -1 do begin
if Components[N].Name = 'Edit1' then begin
(Components[N] as TEdit).width := 100;
end;
end;
end;
Igual que modificas las propiedades de un edit puedes cambiar las propiedades de cualquier control, incluido el formulario.
Saludos