1) Para leer un fichero tan grande no uses el componente tmemo. Puedes usar:
Código:
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.