Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Выделить строку в TMemo

01.01.2007
procedure TfrmMain.Memo1Click(Sender: TObject); 
var
 
Line: Integer;
begin
 
with (Sender as TMemo) do
 
begin
   
Line      := Perform(EM_LINEFROMCHAR, SelStart, 0);
   
SelStart  := Perform(EM_LINEINDEX, Line, 0);
   
SelLength := Length(Lines[Line]);
 
end;
end;
 

https://delphiworld.narod.ru/

DelphiWorld 6.0