Veja se esse exemplo pode te ajudar.
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientDataset1.DataRequest('QualquerCoisa');
end;
function TForm1.DataSetProvider1DataRequest(Sender: TObject;
Input: OleVariant): OleVariant;
begin
if (Input = 'QualquerCoisa') then
ShowMessage ('Você chamou o DataRequest!');
end;
[As partes desta mensagem que não continham texto foram removidas]
