En tu query poné:
Código SQL
[-]
Insert into tbAttach (attachment) values (:attachment);
y luego:
Código Delphi
[-]
Var
f1 : TStringList;
Begin
f1 := TStringList.Create;
try
f1.LoadFromFile('archivo.txt');
query1.ParamByName('attachment').assign(f1);
query1.Execute;
finally
f1.Free;
end;
end;
No he podido comprobar si funciona el assign... pero creo que debiera en todos los conjuntos de componentes de acceso a datos.
Hasta luego.