Как установить поля в TMemo

// устанавливаем поля в Memo1

var

  R : TRect;

  LeftMargin:integer;

  RightMargin:integer;

begin

  LeftMargin:=20;

  RightMargin:=10;



  R := Memo1.ClientRect;

  R.Left := R.Left + LeftMargin;

  R.Top := R.Top + 2;

  R.Bottom := R.Bottom - 2;

  R.Right := R.Right-RightMargin;

  SendMessage(Memo1.Handle, EM_SETRECT,0, Longint(@R)) ;

end;