Ingresar 2.789.636 registro en una tabla de forma eficiente

[jlrbotella]

1) Para leer un fichero tan grande no uses el componente tmemo. Puedes usar:

var f : TextFile;      
lineaactual : string; 
begin   
      AssignFile('c:\test.txt', f);   
      try     
           Append(f);     
           while not Eof do begin       
               Readln(f, lineaactual);  //creo que es así, busca en la ayuda de Delphi para asegurarte       
               //aqui haces lo que quieras con lineaactual     
          end;   
     finally     
          Closefile(f);   
     end; 
end;

2º He visto un sleep(1). Tienes que eliminarlo.