case of

[malo]

@alcaeus: Die Variable "Ausgabe" und die letzte Zeile kann man sich im Grunde sparen, wenn man's gleich so macht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Length(ein.Text) = 0 then  //Wenn kein Text eingegeben wurde, geben wir eine Fehlermeldung aus
    ShowMessage('Kein Text eingegeben!')
  else //sonst sehen wir nach was los ist
  begin
    case ein.Text[1] of //im Moment interessiert uns nur das erste Zeichen
      'A'..'Z': ShowMessage('Grossbuchstabe');
      'a'..'z': ShowMessage('Kleinbuchstabe');
      '0'..'9': ShowMessage('Ziffer');
      else
         ShowMessage('Sonderzeichen');
    end;
  end;
end;

Edit: hab alle "Edit1" 's durch "ein" 's ersetzt... hatte ich bei mir anders zum testen, ohne den Namen des Editfelds ändern zu müssen