Highlight Memo line on double click

[Roman]

I'am trying to select a line in memo by double clicking into that line. Code is simple:

Code: [Select]

procedure TForm1.Memo1DblClick(Sender: TObject);
begin
  with Memo1 do
  begin
    SelStart:=SelStart-CaretPos.x;
    SelLength:=Length(Lines[CaretPos.y])
  end
end;   
but I get highlighted few characters from the end of previous line and almost whole line where caret is. What I am doing wrong?

[Avishai]

procedure TForm1.Memo1DblClick(Sender: TObject);
var
  Row, Col: Integer;
begin
  Col:= Memo1.CaretPos.x;
  Row:= Memo1.CaretPos.y;
  Memo1.SelStart:= Memo1.SelStart+Memo1.SelLength-Col;
  Memo1.SelLength:= Length(Memo1.Lines[Row]);
end;

[Roman]

This is it, thank you.