как удалить лишнеие символы в строке, и ограничить длину строки

[MixanMM]

народ, я подозреваю что всех уже достал, но нужда заставляет, скажите как можно и з строки например: "(654654654654654) слово, слово слово", удалить скобки, а саму ограничить только на первых 7 цифр? т.е все остальное удалить. спасибо заранее

[5naip]

var
  str:string;
begin
str:='(654654654654654) слово, слово слово';
str:=copy(str,2,7);
end;

http://www.delphibasics.ru/Copy.php

[MixanMM]

я наверно неправильно вопрос то задал, строку из компонента ТМемо )) т.е допустим 17ая строка и имеет такой похабный вид, а мне нужно чтобы она имела вид первых 7ми чисел

[5naip]

вот так надо?