Procedure in Datenmodul (TIdHTTP Komponente)

[DaSchwoa]

Danke für die schnelle Antwort
Also ich habe ein Datenmodul wo ich die Indy HTTP und Open SSL Komponente eingebunden habe. Weiters habe ich auch eine Prozedur:

Code:

procedure TFrmDm.doDownload(Website: string; Outputfile: string);
var
  ResponseStream: TFileStream;
begin
  WriteToLog('doDownload', 'Try to read');

  ResponseStream := TFileStream.Create(Outputfile, fmCreate);
  IdHTTP1.IOHandler:= IdSSLIOHandlerSocketOpenSSL1;
  IdHTTP1.HandleRedirects:= true;
  try
    IdHTTP1.Get(Website, ResponseStream);
   WriteToLog('Timer1Timer','HTTP-Status: ' + IntToStr(IdHTTP1.ResponseCode));
  finally
    ResponseStream.Free;
  end;
  WriteToLog('doDownload', 'Download abgeschlossen');
end;

Diese Prozedur möchte ich gerne in meinem Main Service aufrufen:

Code:

procedure TEuropeanCentralBankCurrencyService.Timer1Timer(Sender: TObject);
begin
  WriteToLog('Timer1Timer','Start');
  dm:= TFrmDm.Create(FrmDm);
  dm.doDownload(WEBSITE, outputFilePathName);

  WriteToLog('Timer1Timer','Finished');
  self.DoStop;
  dm.Free;
end;

Jedoch komme ich nicht in die Funktion hinein und der Timer startet immer von neuem ohne etwas zu tun.

Habe auch versucht die Funktion in Public zu geben, aber das hat auch nichts genützt