Дано предложение, которое заканчивается точкой. Найти повторяющиеся буквы. Делфи 7.

[nadyaH]

Дано предложение ,которое заканчивается точкой .Найти повторяющиеся буквы.

procedure TForm1.Button1Click(Sender: TObject);
type
TCharSet=set of char;
var
S:string;
e,x:TCharSet;
i:integer;
begin
S:=edit1.Text;
e:=['a'..'z'];
x:=[];
for i:=1 to length(s) do
  if s[i] in ['a'..'z'] then x:= x+[s[i]]
  else if x<>[] then
    begin
    e:=e*x;
    x:=[];
    end;
edit2.Text:=[low(TCharSet)..hieg(TCharSet)]; // эта срока выдаёт ошибку.
end.

Не знаю как её правильно написать.

[phomm]

Обычно такие задачи решаются через "частоту букв в тексте" / "частотный анализ текста" (такой поисковый запрос по форуму даст Вам много тем, где это уже обсуждалось), у какой буквы частота больше 1 - Ваш случай, в частотном анализе применяется массив частот.
Но, насколько я вижу, Вам надо решить через сеты, а не через массивы, вот набросал:

procedure TForm1.Button1Click(Sender: TObject);
type
  TCharSet=set of char;
var
  S:string;
  once, more: TCharSet;
  i:integer;
  ch: char;
begin
  S := Edit1.Text;
  once := [];
  more := [];
  for i:=1 to length(s) do
    if s[i] in ['а'..'я'] then
      if s[i] in once then
        Include(more, s[i]) // аналогично more := more + [s[i]];
      else
        Include(once, s[i]);
  Edit2.Text := '';
  for ch := 'а' to 'я' do
    if ch in more then
      Edit2.Text := Edit2.Text + ch;
end;