Imagenes Postgres Delphi

Hace tiempo vi que se preguntaba por esto
solo que no habia tenido tiempo de postearlo se los dejo

$ createdb imagen
$ psql imagen
imagen=# CREATE TABLE imagen (imagen bytea);

--
Delphi\File->New->Aplication
en el Form un AdoConnection , un Adoquery, un boton
en la clausula uses de la unidad agregamos jpeg

la propiedad ConnectionString del Adoconnection queda de la siguente manera:
-- al generar la cadena de conexion en
-- opciones avanzadas pag(2) marcamos la casilla Bytea as LO si no, no jala

Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="
DRIVER={PostgreSQL};DATABASE=imagen;SERVER=localhost;PORT=5432;UID=postgres;
ReadOnly=0;Protocol=6.4;FakeOidIndex=0;ShowOidColumn=0;RowVersioning=0;
ShowSystemTables=0;ConnSettings=;Fetch=100;Socket=8192;UnknownSizes=0;
MaxVarcharSize=254;MaxLongVarcharSize=8190;Debug=0;CommLog=0;Optimizer=1;
Ksqo=1;UseDeclareFetch=0;TextAsLongVarchar=1;UnknownsAsLongVarchar=0;BoolsAsChar=1;
Parse=0;CancelAsFreeStmt=0;ExtraSysTablePrefixes=dd_;LFConversion=1;UpdatableCursors=0;
DisallowPremature=0;TrueIsMinus1=0;BI=0;ByteaAsLongVarBinary=1;UseServerSidePrepare=0"

y en el evento onclick del boton :

procedure TForm1.BitBtn1Click(Sender: TObject);
var
MS: TMemoryStream;
Jpeg:TJpegImage;
begin
Jpeg:=TJpegImage.create;
MS := TMemoryStream.Create();
Jpeg.LoadFromFile('C:\imagenes\imagen.jpg');
Jpeg.SaveToStream(MS);
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into ima values (1,:img)');
ADOQuery1.Parameters.ParamByName('img').DataType := ftBlob;
ADOQuery1.Parameters.ParamByName('img').LoadFromStream(MS,ftBlob);
ADOQuery1.ExecSQL;
end;