procedure TForm1.Timer1Timer(Sender: TObject);
var j, m, d, p,t : word;
begin
  decodetime(time,j,m,d,p);
  t := j + m + d;
  if t = 0 then // jam 00:00:00 atau pergantian hari
  begin
    edit2.Text := datetostr(date);
    //////.............proses yg diinginkan
    //////////////////////////
  end;
end;

 
uses  /// - ...  
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdExplicitTLSClientServerBase, IdFTP, IdFTPListTypes, IdFTPList,
  IdFTPListParseBase, IdObjs, IdException, IdAntiFreezeBase, IdAntiFreeze,
  IdAllFtpListParsers,
  DateUtils  /// - ... 
 
/// .... *  
IdFtp1.Host := '127.0.0.1';
IdFtp1.Username := 'root';
IdFtp1.Password := 'ofallevil';
IdFtp1.ChangeDir('/theloveofmoney/');
l := TStringList.Create;
IdFtp1.List(l, '. ', True); 
    for i := 0 to IdFtp1.DirectoryListing.Count - 1 do
    begin      
      TglFtp := idFtp1.FileDate( IdFtp1.DirectoryListing[i].FileName,False );
      TimpaFileLama := True;
      LanjutSebelumnya := False;
      if DayBetween(TglFtp, Now) < 1 then 
          IdFtp1.Get(IdFtp1.DirectoryListing[i].FileName, 'NameFiletujuan', TimpaFileLama, LanjutSebelumnya );
    end;
FIdFTP.Disconnect;

1. Saya belum pernah pake component nya Indy, bisa tolong di perjelas ngga mas atau kl mas punya bisa tolong berikan contoh programnya ? saya sangat membutuhkan program itu. Saya bukan ngga mau mencoba, tapi karena saya belum pernah coba pake Indy saya takut memakan waktu agak lama.

Akan lebih lama jadinya kalo kamu sendiri ngga mencoba. Tuh, yang dicontohkan @danieljun sepertinya sudah seperti yang kamu maksud. Tinggal waktuekeskusinya saja yang dibuat seperti yang kamu mau.