Fehlermeldung beim mehrfachen versenden von Bildern

[Masteric]

Hi, ich habe das mit dem Bilder versenden mit den TSockets aufgegeben und mir die Variante mit Indys angeschaut, was sehr viel einfacher ausschaut und auch funktioniert.

Aber jetzt habe ich ein anderes Problem, das ClientProgramm gibt wenn ich nochein bild versende, immer eine Fehlermeldung....
obwohl das neue bild ankommt....

Hier der Source zum senden:

Delphi-Quellcode:

Procedure TForm1.Screen;
Var BILD:TFilestream; Bmp: TBitmap; Jpg: TJpegImage;
begin
Bmp:=TBitmap.Create;
Jpg:=TJpegImage.Create;
bmp:=Image1.Picture.Bitmap;
  Jpg.CompressionQuality:=80;
  Jpg.Assign(Bmp);
  jpg.SaveToFile(ExtractFilePath(Application.ExeName)+'temp.jpg');
With Client do
Begin
  BILD:=TFileStream.Create(ExtractFilePath(Application.ExeName)+'temp.jpg', fmOpenRead or fmShareDenyWrite);
  with Client do
  begin
  try
  OpenWriteBuffer;
  try
   WriteStream(BILD, true, true, 0); 
   CloseWriteBuffer;
      except
        CancelWriteBuffer;
        raise;
      end;
    finally
      BILD.Free;
    end;
end;
end;
jpg.Free;
bmp.Free;
end;

Es kommt immer die Selbe Fehlermeldung in verschiedenen Abständen.
Ich habe einen Screenshot der Fehlermeldung unten gepostet,
auch eine aus dem Debugger von Delphi.

hoffe ihr könnt mir helfen


Gruß Masteric