При запске программы Timer1.enabled:=true;
Собственно обработчик на таймер :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if текущее время = когда нужно експортировать then
begin
Timer1.enabled:=false;
делаем выгрузку
Timer1.enabled:=true;
end;
end;
Интервал установить в 1000 (~1сек)