Pesquisa com RadioGroup..

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  Case RadioGroup1.ItemIndex Of
     0 :         // NumeroOs;
       Begin
          If(DataModule.Tab_abertura_Os.Locate(´NumeroOs´,EditOpcao.Text,[]))Then
          Begin
             DataModule.Tab_abertura_Os.Edit;
             FormularioParaEdicao.Show;
          End;
       End;
     1 :         //  Nome;
       Begin
          If(DataModule.Tab_abertura_Os.Locate(´Nome´,EditOpcao.Text,[]))Then
          Begin
             DataModule.Tab_abertura_Os.Edit;
             FormularioParaEdicao.Show;
          End;
       End;
     2 :         // Telefone;
       Begin
          If(DataModule.Tab_abertura_Os.Locate(´Telefone´,EditOpcao.Text,[]))Then
          Begin
             DataModule.Tab_abertura_Os.Edit;
             FormularioParaEdicao.Show;
          End;
       End;
  End;
end;