╤ ∩ε∞ε∙ⁿ■ API-⌠≤φΩ÷ΦΦ SendMessage ∞εµφε ταΣα≥ⁿ ∩εδ  Γ Memo-Ωε∞∩εφσφ≥σ.
┼±δΦ φσεß⌡εΣΦ∞ε, φα∩≡Φ∞σ≡, ±Σσδα≥ⁿ ε≥±≥≤∩ Γ 20 ∩ΦΩ±σδσΘ ±δσΓα ≥ε ∞εµφε
²≥ε ±Σσδα≥ⁿ ±δσΣ≤■∙Φ∞ εß≡ατε∞:

var Rect: TRect;
begin
  SendMessage( Memo1.Handle, EM_GETRECT, 0, LongInt(@Rect));
  Rect.Left:= 20;
  SendMessage(Memo1.Handle, EM_SETRECT, 0, LongInt(@Rect));
  Memo1.Refresh;
end;