Como usar a propriedade CommandType da classe TSQLDataSet para definir o tipo de comando SQL que será disparado

procedure TForm3.Button1Click(Sender: TObject);
begin
  // vamos definir o valor da propriedade CommandType
  SQLDataSet1.CommandType := ctStoredProc;
end;

procedure TForm3.Button1Click(Sender: TObject);
var
  commandTypeStr: string;
begin
  // vamos obter o valor da propriedade CommandType
  if SQLDataSet1.CommandType = ctQuery then
    commandTypeStr := 'ctQuery'
  else if SQLDataSet1.CommandType = ctStoredProc then
    commandTypeStr := 'ctStoredProc'
  else if SQLDataSet1.CommandType = ctTable then
    commandTypeStr := 'ctTable'
  else
    commandTypeStr := 'desconhecido';

  ShowMessage('O valor da propriedade CommandType é: ' +
    commandTypeStr);
end;