Prüfen auf Sonderzeichen? [Gelöst]

[Rastaman]

Hallo. Folgendes : Ich wollt n eigenen Code machen der mir alles auf Sonderzeichen prüft.
So

Delphi-Quellcode:

var
  i, i2: Integer;
  sAll,
  sName: String;
  Only: Boolean;
begin

  sAll := 'abcdefghijklmnopqrstuvwxyz1234567890';
  sName := txtName.Text;
  Result := False;
  Only := True;

  For i := 0 to Length(sName) do
  begin
    If Only = False then
    begin
      Result := False;
      Exit;
    end;
    For i2 := 0 to Length(sAll) do
    begin
      Only := False;
      If LowerCase(sName[i]) = sAll[i2] then
      begin
        Only := True;
        Break;
      end;
    end;
  end;

  Result := True;

Nur funktioniert das überhaupt nicht.
Was mach ich da falsch

[EDIT]Habs raus[/EDIT]