Exemplo de Eventos GetText do TClientDataSet

procedure TCadScriptCalculoOrcamento.cdsVariaveisEntradaTIPOGetText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
  inherited;
  Text := FClsScriptCalculoOrcamento.ConvertTipoString(Sender.AsInteger);
end;