procedure Rand(tcm: TCustomMemo; links, oben, rechts, unten: byte); 
var rt: TRect; 
begin 
  rt := rect(links, oben, tcm.clientwidth - rechts, tcm.clientheight - unten); 
  sendmessage(tcm.handle, em_setrect, 0, integer(@rt)); 
end; 
 
// Beispielaufruf 
procedure TForm1.Button5Click(Sender: TObject); 
begin 
  Rand(Richedit1, 30, 15, 10, 10); 
end;