Очень нужна помощь по МНОЖЕСТВАМ (Delphi)

[Olgasato]

Помогите пожалуйста, буду очень признательна, уважаемые программисты....
Есть задание по множествам: вводим строку, содержащую цифры и русские буквы (может быть еще какие-нить символы)..
Нужно (нажатием Button) вывести только буквы и отсортировать их по алфовиту...

Задачка простая, но незнающему трудно..

Заранее спасибо!

[Rapid]

Вот завалялась процедура сортировки СтрингГрида методом пузырька. Думаю можно будет легко переделать для сортировки букв. Принцип сортировки таков: каждый элемент массива, начиная с первого, сравнивается со следующим, и если он больше следующего, то элементы меняются местами, и все это происходит до тех пор, пока массив не отсортируется полностью.

const
  CSize=7;
var
  ArrSort : array[1..7] of integer;//Array of sort
  i : integer;
  BChanged : boolean;
  Buf1 : integer;
begin
  for  i:=1  to CSize do
  begin
    ArrSort[i]:=StrToInt(StringGrid1.Cells[1, i]);
  end;

repeat
  BChanged:=false;
  for  i:=1 to CSize-1 do
  begin

    if ArrSort[i]>ArrSort[i+1] then
  begin
    Buf1:=ArrSort[i];
    ArrSort[i]:=ArrSort[i+1];
    ArrSort[i+1]:=Buf1;
    BChanged:=true;
  end;
end;
until not Bchanged;

for  i:=1  to CSize do
begin
  StringGrid1.Cells[1, i]:=IntToStr(ArrSort[i]);
end;

Используем тег [code]. # - на панели инструментов в расширенном режиме. Модератор.

[AlDelta]

procedure TForm1.Button1Click(Sender: TObject);
var str:string;
    i:integer;
    list:TStringList;
    numbers:set of 'A'..'z';
begin
str:=Edit1.Text;
list:=TStringList.Create;
numbers:=['A'..'z'];

for i:=1 to length(str) do
if str[i] in numbers then
list.Add(str[i]);

list.Sort;
Edit2.text:='';

for i:=0 to list.Count-1 do
Edit2.Text:=Edit2.Text+list.Strings[i];

list.Free;
end;

[Olgasato]

Спасибо Большое! Очень выручили......