Eliminar caracteres y numeros

[ecfisa]

Hola.

Código Delphi [-]
function QuitarProvincia(s: string): string;
begin
  Result := Trim(Copy(s, Pos(')', s) + 1, MaxInt));
end;

Si las lìneas se encontraran en un TMemo por ejemplo, podrìas hacer:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to Memo1.Lines.Count-1 do
    Memo1.Lines[i] := QuitarProvincia(Memo1.Lines[i]);
end;

Saludos