Проблемы с memo)))

[Poltev86]

Вообщем суть такова!!! Есть текстовый файл размером 100 мб...его надо загнать в бд...я делаю так...агружаю его...потом нужные для бд объекты выделяю и копирую BDMemo..так как файл большой все это делаеться очень долго..может подскажите как ускорить

procedure TForm1.BitBtn1Click(Sender: TObject);
var

  find,Copys:String; //Переменная типа объект TStringList.
  i:Integer; // Счётчик
 begin
    find:='п/дела';
    repeat
      begin
         memo1.Lines.BeginUpdate;
      try
    if pos(find,Memo1.Lines.Text)<>0 then
       begin
         DataModule2.ADOTable1.Insert;

         memo1.SetFocus();
         memo1.SelStart:=pos(find,Memo1.Lines.text)+7;
         memo1.SelLength:=Length(find);

         DBEdit1.Text:=copy(Memo1.Lines.Text,pos(find,Memo1.Lines.text)+7,Length(find));
         DBEdit2.Text:=MaskEdit1.Text;
         DBEdit3.Text:=MaskEdit2.Text;

         //memo1.SetFocus();
        memo1.SelStart:=pos(find,Memo1.Lines.text)-230;
         memo1.SelLength:=Length(find)+1295;
         Copys:=copy(Memo1.Lines.Text,pos(find,Memo1.Lines.text)-230,Length(find)+1295);
         Memo1.ClearSelection;


         DBMemo1.Lines.Add(Copys);

         If DataModule2.ADOTable1.Modified then
         DataModule2.ADOTable1.Post;
         DataModule2.ADOTable1.Refresh;
         Application.ProcessMessages;


    end else ShowMessage('Ошибка в ФАЙЛЕ '); // Конец для цикла
     finally
     Memo1.Lines.EndUpdate;
   end;  end;

     until Memo1.Lines.Count<5; ShowMessage('Конвертация оконченна');
 end;

[Poltev86]

Тема закрыта всем спасибо