Hola
Posiblemente te ayude poner en el evento afterConnect del componente
TZConnection el siguiente codigo
var
qry :TZReadOnlyQuery;
begin
qry := TZReadOnlyQuery.Create(nil);
With qry do try
Connection := Tu_TZConnection;
SQL.text := 'SET CLIENT_ENCODING TO ''latin1''' ;
Open;
finally
FreeAndNil( qry );
end;
end;