Te voy a poner ejemplo mio con pulsar un boton que salga para resumen.
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, StrUtils;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
const
number=['0'..'9'];
var
cadena:string;
scadena:string;
s1, s2, s3: string;
p1, p2:integer;
p:string;
begin
cadena := '(131) Betanzos 2 (A Coruña)';
p1 := Pos('(', cadena);
p2 := PosEx(')', cadena, p1);
p:= delete(cadena, p1+1, p2-p1-1));;
showmessage(p);
end;
end.
El resultado seria eso: Betanzos 2 (A Coruña)
He visto internet sobre delete pero salia algo incompatible, no se si ese programa es correcto o fallo algo.