buchstaben aus String rausfiltern ??

[monstaa]

@scrat ich werde es gleich mal probieren

ich hab nämlich ein prob:
der filtert nich alle buchstaben raus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var x:string;
    y:string;
    i:Integer;
    j:Integer;
begin

//x := length(Edit1.Text);
x := Edit1.Text;
y := IntToStr(Length(x));
j := StrToInt(y);

  //ShowMessage(y);

 for i := 1 to j do begin
    //ShowMessage('hi '+IntToStr(i));
      case x[i] of
         'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h',
         'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p',
         'q', 'r', 's', 't', 'u', 'v', 'w', 'x',
         'y', 'z': Delete(x, i, 1);

      end;

  end;
 StaticText1.Caption := x;
end;