╩αΩ Γ√ ±φΦ≥ⁿ ∩εδεµσφΦσ Ω≤≡±ε≡α Γ ╠┼╠╬?

═σεß⌡εΣΦ∞ε Γ√τΓα≥ⁿ ΣΓαµΣ√ API-⌠≤φΩ÷Φ■ "SendMessage": 

var 
  xChr, 
  xRow, 
  xCol: LongInt;
...

xRow := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0);
xChr := SendMessage(Memo1.Handle, EM_LINEINDEX, Zeile, 0);
xCol := Memo1.SelStart - xChr + 1;




╤εΓσ≥√ φα≈Φφα■∙Φ∞