ntext SQLDatenbank

[day]

Hallo

Ich versuche ein aus einer RichEdit komponente in ein ntext datenfeld einer SQL datenbank zu schreiben. Leider klappt das nicht so ganz. Als erster Test habe ich versucht daten aus einem File in die Datenbank zu schreiben. Aber klappte auch nicht. Kann mir jemand weiterhelfen?

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  blob: TStream;
  fs : TFileStream;
begin
  blob := TAble1.CreateBlobStream(TAble1.FieldByName('SEARCHTEXT'), bmWrite);
  try
   // memo1.Lines.SaveToFile('c:\test.txt');
    blob.Seek(0, soFromBeginning);
    fs := TFileStream.Create('c:\test.txt', fmOpenRead or
      fmShareDenyWrite);
    try
      blob.CopyFrom(fs, fs.Size)
    finally
      fs.Free
    end;
  finally
    blob.Free
  end;

wenn ich diesen code ausführe, bekomme ich die Fehlermeldung: exception class EWriteError with message 'Stream write error'

woran liegt das?