Hola.
Basandome en tu código sería:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
cadena:string;
begin
cadena := '(131) Betanzos 2 (A Coruña)';
cadena := Trim(Copy(cadena, Pos(')', cadena) + 1, MaxInt));
ShowMessage(cadena);
end;
Saludos