[Drozh]

Код:

var
 Source, Dest: String;
 i: Integer;
begin
 Source := 'Твоя строка';
 Dest := '';

  for i := 1 to Length(Source) do
  begin
   if Source[i] in ['A'..'Z', 'a'..'z', 'А'..'Я', 'а'..'я'] then
    Dest := Dest + Source[i];
  end;

// Dest <- выводишь