Memo with margins

Procedure TForm1.Button1Click ( Sender : TObject ) ;

Var

   R           : TRect ;

   LeftMargin : integer ; { LeftMargin }

   RightMargin : integer ; { RightMargin }

Begin

   LeftMargin := 20 ;

   RightMargin := 10 ;

   R := Memo1.ClientRect ;

   R.Left := R.Left + LeftMargin ;

   R.Top := R.Top + 20 ;

   R.Bottom := R.Bottom - 20 ;

   R.Right := R.Right - RightMargin ;

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

End ;