Leeren TFileStream erzeugen?

[OrNEC]

Also ich lese in ein FileStream ein Bild aus ner DB ein. Wird das Bild vom User gelöscht, muss ich beim Updaten der DB auch das Bild löschen. Ich dachte einfach mit nem leerem FileStream. Aber ich will dafür keine Datei einlesen....

Delphi-Quellcode:

    // Bild updaten
    if srcpic <> 'empty' then
    begin
      src := srcpic;
      dest := ChangeFileExt(ExtractFilePath(ParamStr(0)), 'temp\temp.jpg');
      ScaleOneImage(src, dest, 200, 200, 92, True); // Seitenverhaeltnis wird beibehalten
      fs := TFileStream.Create(dest, fmOpenRead);
      try
        sSQL2:='UPDATE media SET picture = ? WHERE id_media=' + idinb + ';';
        db.UpdateBlob(sSQL2, fs);
      finally
        FreeAndNil(fs);
      end;
    end else
        begin
          // Bild loeschen (hier kracht es)
          fs := TFileStream.Create('MeineNullByteFile.Dat???', fmCreate); // geht vllt irgendwie anders
          try
            sSQL2:='UPDATE media SET picture = ? WHERE id_media=' + idinb + ';';
            db.UpdateBlob(sSQL2, fs);
          finally
            FreeAndNil(fs);
          end;
        end;