[DelphiM0ZG]

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
  Str: String;
begin
  Str:=Edit1.Text;
  // строка, решающая Вашу задачу
  Delete(Str, AnsiPos('(', Str), AnsiPos(')', Str)-AnsiPos('(', Str)+1);
  Label1.Caption:=Str;
end;

В следующий раз, пожалуйста, выкладывайте, то что у Вас получилось (даже, если не работает) - тут же не телепаты сидят.