Ausgliedern von Functionen in externe Unit

[Jens Hartmann]

Ich weiß allerdings nicht wie ich das mache. Deswegen fragte ich oben schon mal nach einem Tutorial

Ich will mal so sagen, wenn ich folgende function mit den entsprechenden Übergabe Werten in eine externe Unit/Klasse packen will, wo muss ic dann was, und vorallem damit ich es auch versteh wie und warum machen.

Delphi-Quellcode:

function TForm1.SetTimer1IntervalEMailStart : Boolean;
var
  TimeNow : String;
  TimeSend : String;
const
  HalfDay = 43200000;
begin
  SendEMailTimer1.Enabled := false;
  TimeNow := TimeToStr(Now);//Aktuelle Zeit
  TimeSend := '22:57:00';//Nächste Startzeit
  if TimeSend > TimeNow then //Prüfung ob Sendezeit für aktuellen Tag schon vorbei
    begin
      //Zeitpunkt für nächsten Step festlegen
      SendEMailTimer1.Interval := MilliSecondsBetween(frac(StrToTime(TimeNow)),
        frac(StrToTime(TimeSend)));
    end
  else
    begin
      //Zeitpunkt festlegen wenn Step für aktuellen Tag vorbei
      SendEMailTimer1.Interval := HalfDay - MilliSecondsBetween(frac(StrToTime(TimeNow)),
        frac(StrToTime(TimeSend)))+ HalfDay;
    end;
  SendEMailTimer1.Enabled := true;
end;

Gruß Jens