Как выделить определенную часть строки в делфи?

Есть memo1.
В нем текст:
1)login;pas

Как сделать так, что бы при двойном клике по слову login выделилось только слово login, а не вся строка?

 

примерно так:

Code:

procedure TForm1.Memo1DblClick(Sender: TObject);
var
  i: Integer;
begin
  i:= pos(';', Memo1.SelText) - 1;
  if (i >= 0) then Memo1.SelLength:= i else Memo1.SelLength:= 0;
end;

 

alexey-m, выделяеться не только login, но и "1)"
Как сделать что бы выделялся только логин?

 

делай сам обработку выделенного как тебе надо, хз как-то так будет

Code:

procedure TForm1.Memo1DblClick(Sender: TObject);
var
  i,j: Integer;
begin
  i:= pos(')', Memo1.SelText);
  j:= pos(';', Memo1.SelText) - 1;
  if (i >= 0) and (j >= 0) then begin
    Memo1.SelStart:= Memo1.SelStart + i;
    Memo1.SelLength:= j - i;
  end;
end;

 

alexey-m, спасибо за помощь. примерно так и сделал)