Error al Tratar de Almacenar Cadena con Acepto

[inferno]

realize todo los cabios que escribistes con respecto a la tabla y tambien modifique la base de datos en el charset con iso8859_1, cuando realizo la inserción directamente en la base de datos si acepta acentos, pero cuando relizo la inserción con delphi no la realiza, estoy haciendo la inserción desde delphi con este código que esta acontinuación: un procedimiento almacenado el firebird 1.5

Código Delphi [-]
try
if (Procedimiento<>nil)then
begin
Procedimiento.Database.DefaultTransaction.StartTransaction;
Procedimiento.Close;
Procedimiento.StoredProcName:='procagregarcliente';
Procedimiento.Prepare;
Procedimiento.ParamByName('iidcliente').AsString:=EditCedula.Text;
Procedimiento.ParamByName('inombre').AsString:=EditNombreC.Text;
Procedimiento.ParamByName('iapellido').AsString:=EditApellidoC.Text;
Procedimiento.ParamByName('idireccion').AsString:=EditDireccion.Text;
Procedimiento.ParamByName('iemail').AsString:=EditEmail.Text;
Procedimiento.ExecProc;
Procedimiento.Close;
Procedimiento.Database.DefaultTransaction.Commit;
end;
except
Procedimiento.Database.DefaultTransaction.Rollback;
end;