!!! FormCanResize

[roman]

Usa una bandera (variable booleana):

Código Delphi [-]
procedure TFindForm.FormCanResize(Sender: TObject; var NewWidth,  NewHeight: Integer; var Resize: Boolean);
begin
 Resize := SeHacePorCodigo;
end;

Cuando quieras modificar el tamaño por código, pones en true esta variable, y la restauras a false al final:

Código Delphi [-]
SeHacePorCodigo := true;
Width := 100;
Height := 200;
SeHacePorCodigo := false;

// Saludos