delphi es letra comprueba que un campo sea letra o numero

procedure TusuarioN.Button1Click(Sender: TObject);
var
aux, abc:string;
i: integer;
correcto: boolean;
begin


 //el usuario solo puede tener letras y/o numeros
 abc:='1234567890qwertyuiopasdfghjklzxcvbnm'+'QWERTYUIOPASDFGHJKLZXCVBNM';

  aux:=edit1.Text;
  correcto:=true;
  for i := 1 to Length(aux) do
  begin

    if AnsiPos(aux[i],abc)=0 then
    begin
      correcto:=false;
    end;

  end;

  if correcto=false then
  begin
    ShowMessage('Usuario solo puede contener letras y/o numeros');
    exit;
  end;




(...)