font del memo sea escalable

[ecfisa]

Hola morfeo21.

Si la propiedad Align del Memo es alClient, una forma de hacer lo que querés es la siguiente:

Código Delphi [-]
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormShow(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
  private
    FRate, FSize : Integer;
  public
  end;
...
interface
...
procedure TForm1.FormShow(Sender: TObject);
begin
  FRate:= ClientWidth * ClientHeight;
  FSize:= Memo1.Font.Size;
end;

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
var
  NewSize: Integer;
begin
  NewSize:= Trunc(NewWidth * NewHeight * FSize / FRate);
  if NewSize > 0 then
    Memo1.Font.Size:= NewSize
end;

De ese modo el tamaño del font crece o decrece de acuerdo al tamaño del form (no del Memo), pero al estar este último
alineado alClient, logras el efecto deseado.

Saludos.

[morfeo21]

Muchas gracias por sus respuestas me pondré a realizar los cambios necesarios en mi proyecto sabia que podía contar con ustedes.