[nisolmer]

Я сделал немного проще. через файнд диалог. При открытии диалога содержимое файла грузится в мемо и там уже ищет

Код:

 procedure TForm3.Button2Click(Sender: TObject);
begin
   FindDialog1.Execute;
   Memo1.Lines.LoadFromFile('memo.txt');
end;

procedure TForm3.FindDialog1Find(Sender: TObject);

begin
if pos(FindDialog1.FindText, Memo1.Text) <> 0 then
begin
Memo1.HideSelection:=False;
Memo1.SelStart:=pos(FindDialog1.FindText, Memo1.Text)-1;
Memo1.SelLength:=Length(FindDialog1.FindText);
end
else
MessageDlg('Строка '+FindDialog1.FindText+' не найдена', mtConfirmation, [mbYes], 0);

просто незнаю как сделать поиск далее по тексту и чтобы он находил несколько значений и выделял их и сортировку тоже непойму как(.