Einfügen von großen Texten in ein FB TextBLOB-Feld scheitert

[Gecko]

THX, so gehts doch!

Code:

with qrmain do
begin
  SQL.Text :=' INSERT INTO POSTEIN (text) VALUES (:Text)';
  qrmain.ParamByName('Text').AsBlob:=memo2.Lines.Text;
  ExecSQL;
end;