Speicherleck, ABER warum?

[bluethund]

Hallo miteinander.

Ich hoffe mir kann jemand helfen. Mein Programm verbraucht immer mehr Speicher, bis der Arbeitsspeicher voll ist. Sobald ich keine Dateien mehr zu übertragen habe, steigt der Speicherverbrauch auch nicht mehr an.

Ich habe das Problem auf den Netzwerk-Code eingegrenzt und auch mehrere Tools zum Aufspüren von Memory Leaks bereits verwendet, aber die haben nichts gefunden.

Ich habe erst vor kurzem mit Delphi angefangen und es könnte sein, dass ich vielleicht etwas nicht richtig mache. Ich habe schon andere Programmiersprachen verwendet, aber das ist mein erstes Netzwerkprogramm. Meine 2-wöchige Suche im Internet hat keine brauchbaren Hinweise oder Lösungen gebracht.

Ich bin für jede Hilfe dankbar.

Delphi-Quellcode:

procedure TRecvFileThread.Execute;
var
  client : TIdTcpClient;
begin
  client := nil;
  try
    client := TIdTcpClient.Create(nil);
    client.Host := Form1.OtherPcIP;
    client.Port := Form1.FocPort;

    while not Terminated do
    begin
      try
        client.Connect;
        while not Terminated do
        begin
          Networking(client);
        end;
      finally
        client.Disconnect;
        Sleep(SLEEP_THREADS);
      end;
    end;
  finally
    client.Free;
  end;
end;

procedure TRecvFileThread.Networking(var client : TIdTcpClient);
var
  path, path_foc, filename, resp : string;
  filestr : TFileStream;
  filesize : int64;
begin
          client.WriteLn('SEND');
          resp := client.ReadLn(EOL);

          if resp = 'READY' then
          begin
            filename := client.ReadLn(EOL);
            filesize := StrToInt64(client.ReadLn(EOL));
            path := dir + filename;
            path_foc := path + '.foc';

            filestr := nil;
            try
              filestr := TFileStream.Create(path_foc, fmCreate);
              client.ReadStream(filestr, filesize);
            finally
              filestr.Free;
            end;

            CopyFile(PChar(path_foc), PChar(path), false);
            client.WriteLn('OK');
            DeleteFile(PChar(path_foc));
          end
          else if resp = 'NONE' then
            Sleep(SLEEP_THREADS)
          else
            client.Disconnect;
end;