Zeilenweises Lesen einer TXT-Datei?

[Dano]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Frequenz,Time1,Time2: Int64;
begin
  QueryPerformanceFrequency(Frequenz);          // zeitmessung
  QueryPerformanceCounter(Time1);               // zeitmessung

  !!! zu messende funktion hier !!!

  QueryPerformanceCounter(Time2);               // zeitmessung

  //1. ausgabe in millisekunden
  Form1.Label1.Caption:=FormatDateTime('hh:nn:ss:zzz',IncMilliSecond(0,Round( (Time2-Time1)/Frequenz*1000 )));  // zeitmessung

  //2. oder in tick's 
  Form1.Label1.Caption:=FloatToStrF(Time2-Time1,ffNumber,99,0);  // zeitmessung

end;

das ganze kann durch das multitasking aber etwas abweichen...
geht glaube erst ab NT,2000,XP
und windows muß in uses sein...

mfg Dano