Probleme beim Einbau des Timers

[aaaaaaaaaa_10]

Das ist meine TimerProcedure:

Delphi-Quellcode:

procedure TMomFiles.MyTimerEvent;
var
  Sek, Mom : TStringList;
  DatName, LogDatei, temp1, temp2 : string;
begin
  DatName := extractfilepath(application.exename)+'Mom3sek_'+Kennung+'.txt';
  LogDatei := extractfilepath(application.exename)+'mom'+Kennung+'.log';
  Mom := TStringList.Create;
  Sek := TStringList.Create;
  try
    Mom.LoadFromFile(Logdatei);
    Sek.LoadFromFile(DatName);
    temp1 := Mom.Strings[Mom.Count-1];
    temp2 := Sek.Strings[Sek.Count-1];
    if temp1 <> temp2 then
    begin
        ShowMessage('verschiedene Strings');
        Sek.Add(Mom[Mom.Count-1]);
    end;
    Sek.SaveToFile(DatName);
  finally
    Sek.Free;
    Mom.Free;
  end;
end;

Die will ich jetzt aber in einer anderen Unit aufrufen mit :

Delphi-Quellcode:

MyTimer := TTimer.Create(nil);
  MyTimer.Enabled := True;
  MyTimer.Interval := 1000;
  MyTimer.OnTimer :=  MomFiles.MyTimerEvent;

//Fehler : Inkompatible Typen 'Lister der parameter unterschiedliche'