Die Zeilen eines TMemo in die Datenbank (Tabelle) speichern

[LOMBI]

Hallo marabu,

habe die Tabelle für Textbausteine entsprechend deiner Anweisung geändert.
Mit den beiden Codes schreibe ich in das TMemo1 bzw. lese aus:

Delphi-Quellcode:

procedure TFmTBS.BtnSpeichernClick(Sender: TObject);
var
  FileStream: TFileStream;
  BlobStream: TStream;
begin
    ...
    Edit;
    FileStream := TFileStream.Create('TBS.Txt',fmOpenRead or fmOpenWrite);
    BlobStream := CreateBlobStream(FieldByName('Text'),bmWrite);
    Memo1.Lines.SaveToStream(BlobStream);      //Textbaustein, Text-ID 1 schreiben;
    FileStream.Free;
    BlobStream.Free;
   Post;
end;

procedure TFmTBS.FormCreate(Sender: TObject);
...
  Edit;
  FileStream := TFileStream.Create('TBS.Txt',fmOpenRead or fmOpenWrite);
  BlobStream := CreateBlobStream(FieldByName('Text'),bmRead );
  Memo1.Lines.LoadFromStream(BlobStream);  //Textbaustein, Text-ID 1 lesen;
    ...
  end;
end;

1.) Stimmen die Codes?
2.) TBS.Txt ließ sich nicht automatisch erzeugen und mußte manuell hinzugefügt werden.
3.) Wie schreibe/lese ich die Texte für TMemo2 usw. auf der gleichen FmTBS?

Vielen Dank vorab für die Antwort.

Gruß
Lombi