Hola.
Código Delphi
[-]
...
uses StrUtils;
function GetPrefix(const Number: string): string;
var
p1, p2: Integer;
begin
p1 := Pos('(', Number);
p2 := PosEx(')', Number, p1);
Result := Copy(Number, p1+1, p2-p1-1);
end;
Ejemplo de uso:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetPrefix('(981) 15121351615'));
end;
Saludos