[pylsar]

Вышел из ситуации таким способом

Код:

procedure TForm1.FormActivate(Sender: TObject);
var
   Rect: TRect;
begin
  SendMessage( Memo1.Handle, EM_GETRECT, 0, LongInt(@Rect));
  Rect.Left:= 10;
  Rect.Top:=10;
  SendMessage(Memo1.Handle, EM_SETRECT, 0, LongInt(@Rect));
  Memo1.Refresh;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  Form1.FormActivate(Sender);
end;

Вообще верна ли строчка Form1.FormActivate(Sender) ?