TIdBytes in Datenbankfeld speichern

[hawiwo]

Hallo,
ich habe einen TIdUDPServer und möchte die empfangenen Daten in eine Firebird Datenbank möglichst ohne viel
Umwandlung bzw. Umwandlungsfehler speichern.

Zum Test habe ich eine Tabelle mit dem Feld:
DATA BINARY(260) Nullable
angelegt

mit
void __fastcall TForm1::IdUDPServer1UDPRead(TIdUDPListenerThread *AThread, const TIdBytes AData, TIdSocketHandle *ABinding)

FDQuery1->Params->CreateParam(ftBytes, "param1", ptInput);
FDQuery1->ParamByName("param1")->AsVarByteStr = ??AData??
...
FDQuery1->SQL->Text = "INSERT INTO MYTAB(DATA) VALUES (:param1)";
FDQuery1->ExecSQL();

Wie bekomme ich die TIdBytes AData in ein Datenbankfeld?
Hat jemand sowas schon mal gemacht? Wie geht das?

auch wenn das C++ ist...Ein Delphi Beispiel wäre mir schon recht.