[Pyro]

PHP код:

type abc = set of char;

function no_empty_lines(str: string): string;
begin
  while str <> StringReplace(str, #13#10#13#10, #13#10, [rfReplaceAll]) do
    str := StringReplace(str, #13#10#13#10, #13#10, [rfReplaceAll]);
  if pos(#13#10, str) = 1 then
    str := StringReplace(str, #13#10, '', []);

  result := str;
end;

function get(str: string; needed: abc = ['a'..'z', 'A'..'Z']): string;
var i: integer;
begin
  for i := 0 to 255 do
    if not (char(i) in needed) then
      str := StringReplace(str, char(i), #13#10, [rfReplaceAll]);

  result := no_empty_lines(str);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Text := get(Edit1.Text);
end; 


stringreplace-ом