Probleme beim Einbau des Timers

[aaaaaaaaaa_10]

Hallo,
habe folgende Prozedur :

Delphi-Quellcode:

procedure TMomFiles.DreiSekDateiFuellen(const Filename: string);
var
  LogDatei, DatName, temp1, temp2: string;
  i : integer;
  Mom, Sek: TStringList;
begin
  DatName := extractfilepath(application.exename)+'Mom3sek_'+Kennung+'.txt';
  Mom := TStringList.Create;
  Sek := TstringList.Create;
  try
    LogDatei := extractfilepath(application.exename)+'mom'+Kennung+'.log';
    Mom.LoadFromFile(Logdatei);
    Sek.Add(Mom[0]);
    temp1 := Mom.Strings[Mom.Count-1];
    temp2 := Sek.Strings[Sek.Count-1];
    if temp1 <> temp2 then                [b]die letzte Zeile einer vorhandenen Datei soll immer (bei Veränderungen)in die neue 
    begin                                    Datei hinten angehängt werden[/b]
        Sek.Add(Mom[Mom.Count-1]);
    end;
    Sek.SaveToFile(DatName);
  finally
    Sek.Free;
    Mom.Free;
  end;
end;

Wie realisiere ich das "Testen auf Veränderungen der letzten Zeile" mit einem Timer? Weiß nicht wie ich da anfangen kann.