Guardar letras griegas en Firebird

[bulc]

Código Delphi [-]
procedure TPalabras.BitBtn4Click(Sender: TObject); // GUARDAR DATOS
begin
BitBtn2.Enabled:=True; BitBtn1.Enabled:=True; Button2.Click;
if ClientDataSet1.State in [dsInsert, dsEdit] then
begin
       if DataSource1.DataSet.FieldByName('WORD').asString=''  then
          begin
          DataSource1.DataSet.Cancel;
          EsAlta:=False;
          Exit;
          end else
          begin
          If esAlta then PasaUno:=True;
          ClientDataSet1.Post;
          ClientDataSet1.ApplyUpdates(-1);
          //Detrás del Apply porque el nuevo número ya se guardó.
          REVISA_GEN(IBQuery1, PasaUno, Label1);
         end;
     end;
 EsAlta:=False; PasaUno:=False;
 BitBtn2.Enabled:=True;
end;

Por otra parte el campo (llamado Notes) se define con el character set ISO8859_I. Guarda correctamente.
Eso es todo lo que puedo aportar.
Saludos. Bulc