Bild aus Resource mit IdHTTPServer ohne Temporärdatei?

[FriFra]

Wie bekomme ich ein Bild aus einer Resource ohne eine Temporärdatei zum Client?

Bisher mache ich es so:

Delphi-Quellcode:

        AResponseInfo.ContentType := 'image/jpeg';
        try
          RS := TResourceStream.Create(0, 'background', RT_RCDATA);
          RS.Position := 0;
          TmpFile := GetTempFile;
          RS.SaveToFile(TmpFile);
          IdHTTPServer1.ServeFile(AThread, AResponseInfo, TmpFile);
          try
            DeleteFile(TmpFile);
          except
          end;
        finally
          RS.Free;
        end;

Allerdings passiert es dabei schonmal, dass der Server zu langsam ist und die Datei schon gelöscht ist ist bevor sie gestreamt wurde.