Ok, also bis zum xis sieht das so aus:
Delphi-Quellcode:
procedure ZehnMinTimerEvent(Sender: TObject);
var
Sek, Min, ZwSpeicher : TStringList;
DreiSek, ZehnMin: string;
TabPos, Spaltenanzahl, linenum : integer;
begin
DreiSek := extractfilepath(application.exename)+'Mom3sek_'+Kennung+'.txt';
ZehnMin := extractfilepath(application.exename)+'Mom10min_'+Kennung+'.txt';
TestDatei := TFileStream.Create(ExtractFilePath(application.exename)+'test.txt',fmOpenReadWrite);
TestDatei.Seek(0, soFromEnd);
Sek := TStringList.Create;
Min := TStringList.Create;
ZwSpeicher := TStringList.Create;
try
Sek.LoadFromFile(DreiSek);
if Zeilenanzahl = Sek.Count-1 then exit;
Zeileananzahl habe ich als property deklariert und da wird auch irgendwo der Knackpunkt sein. Sek wurde bereits erstellt. (u.a. in #20 sichtbar)