Guardar Imagenes zeoslib+lazarus

[keine1lust]

Buen dia tengo un pequeño problema para guardar imágenes a la base de datos, eh vistos muchos ejemplos y temas relacionados con dicho asunto pero veo que funciona bien pero en usando delphi.

yo estoy programando un registro de personas en el cual debo guardar una foto que almaceno en un TImage aparte de guardar los datos esa persona lo quiero que se guarde junto con la imagen pero solo consigo error seguí este ejemplo que me brinda una guía básica de zeoslib:

Código Delphi [-]
 Var TheStream : TMemoryStream;
Begin
  TheStream := TMemoryStream.Create;
  Try
    Image1.Picture.Bitmap.Savetostream(TheStream);
    With qryBlobInsert do 
    Begin
      Sql.Text := 'INSERT INTO EVENTS (EventNo,EVENT_PHOTO) VALUES (100,:ThePicture)';
      Params.Clear;
      Params.CreateParam(ftBlob,'ThePicture', ptInput);
      ParamByName('ThePicture').LoadfromStream(TheStream,ftBlob);
      ExecSQL;
    End;
  Finally
    TheStream.Free;
  End;
End;

pero en lazarus no reconoce ftBlob y ptInput

mi forma de conectarme a una base de datos es llamando a una clase de conexión a base de datos

eh probado otros ejemplos donde solo se guarda la imagen y en realidad no me han funcionado. Si me guiar o recomendarme alguna guía que leer estaría muy agradecido que tengan buen dia