>>257

procedure TForm1.SelLine(aMemo: TMemo; aLine: Integer);
begin
aMemo.SelStart := aMemo.Perform(EM_LINEINDEX,aLine,0);
aMemo.SelLength := Length(aMemo.Lines[aLine]);
aMemo.SetFocus;
end;