Помогите оптимизировать прогу(работа с файлом)

[Leksda]

суть задачи такова
есть текстовый файл размером около 1,5-3 Мб, в файле данные о сотрудниках, кол-во строк >60000
нужно из этого файла выбрать все строки относящиеся к сотруднику и сохранить их в отдельном файле где название будет его имя,плюс к этому необходимо отредактировать файл - результат (убрать ненужные строки)
написал сл. код, программа выполняется с файлом до 500кб, помогите оптимизировать!!

RichEdit1.Lines.LoadFromFile(fname); //загружаем файл в richedit
     for I := 0 to RichEdit1.Lines.Count - 1 do
     begin
       temp:=RichEdit1.Lines[i];

      if pos ('Reg #      ', temp) <> 0 then  {поиск строк с которой начать копировать}
        t:= RichEdit1.Lines.IndexOf(temp);
      if pos ('Your payment', temp)<> 0 then {до которой копировать}
        p:= RichEdit1.Lines.IndexOf(temp);
        {цикл для найденных строк}
      if (t<>0) and (p<>0) then
        begin
          for x := t-2 to p do
            begin
            {копирование строк по имени клиента}
              s:=RichEdit1.Lines[x];
              memo2.Lines.Add(s); //вставляем в мемо2 необходимые строки
              fname1:=RichEdit1.Lines[t-2]; //имя файла для сохранения
              delete(fname1,1,64);
            end;
          {редактирование файла}
              for a := 0 to memo2.lines.Count - 1 do
                begin
                  s1:= memo2.Lines[a];
                  if pos('Page 1 of', s1)<>0 then
                    begin
                      b:=memo2.Lines.IndexOf(s1);
                      for c := b-2 to b+12 do
                      memo2.Lines.Delete(b-2); {вырезаем ненужные строки}
                    end;
                end;
          memo2.Lines.SaveToFile(fname1+'.txt');// сохранить файл
          memo2.Clear; //очищаем мемо для следующего сотрудника
          t:=0;
          p:=0; 
        end;
     end;

[Ntlegend]

1) для хранения данных о сотрудниках лучше использовать Базы Данных
2) memo2 используется как буфер.. лучше вмест него использовать переменную типа TStrings, работа с нею значительно быстрее чем с мемо
3) идет много обращений к тексту рич эдита.. лучше сначала перегнать весь текст в буферную переменную типа TStrings и потом работать с нею..

[Stilet]

лучше вмест него использовать переменную типа TStrings

Вообще то это абстрактный класс. Лучше TStringList.

Кстати я бы использовал простейший Readln+Pos.

[CahekG]

Возможно из-за этого не работает:

memo2.Lines.Delete(b-2); {вырезаем ненужные строки}

Изменеение memo2.lines.Count в теле цикла уже не повлияет на реальное количество итераций цикла. Это может и приводит к ошибке, которая не даёт работать. Например где-то в тексте 'Page 1 of' встречается ближе к концу информации переданой в memo2, а после удаления строк

s1:= memo2.Lines[a];

обращается к несуществующей строке

Если это разовый проект и нет опыта работы с БД, то для современного компа без ошибок в коде это не должно вызвать особых задержек во времени.

[Leksda]

дело в том, что файл получается путем выписки из БД, к которой доступа нет. и прога рабочая, просто если исходный файл больше чем 2000 - 3000 строк, то обработка занимает оч. много времени, (если файл содержит около 6000 строк время порядка 20-25 мин!) а кол-во строк в дальнейшем будет только увеличиваться...

[s.Creator]

Неплохо было бы посмотреть структуру файла для начала

[Serge_Bliznykov]

Leksda, попробуйте всё таки прислушаться к вышеданным советам:
проверьте такой код сколько будет выполняться:

var
  TS, TOut : TStringList; 
  i : integer;
begin
  TS := TStringList.Create;
  TOut := TStringList.Create;
  TS.LoadFromFile('вашфайл.txt');
  for i:=0 to TS.Count-1 do
    if Pos('Сотрудника табельный номер',TS.Strings[i])>0 then
      TOut.Add(TS.Strings[i]);
  TOut.SaveToFile('Выходной_файл.txt')
end.

[Leksda]

Serge_Bliznykov
спасибо!