Выделение текста

[Boris-Britva]

Здравствуйте. Как выделить текст в Memo, например от символа "*" и до символа "#". Заранее спасибо.

[Cyn4uk]

  memo1.SetFocus;
  memo1.SelStart:=2;
  memo1.SelLength:=2;

[Stilet]

Я бы уточнил:

with Memo do begin
 i:=0;
 While (i<=length(Lines.text))and(Lines.text[i]<>'*') inc(i);
 k:=0;
 While ((k+i)<=length(Lines.text))and(Lines.text[k+i]<>'#') inc(k);

  SelStart:=i;
  SelLength:=k;

end;