wenn es sich nur um die Buchstaben, wie A-Z und ÄÖÜ handelt, dann geht auch dieses
if Ord(Key) and $20 <> 0 then IstEinKleinbuchstabe;
ob es jetzt auch bei allen Sonderzeichen ala Á und Co. auch geht, kann ich allerdings nicht sagen, aber bei den normalen Buchstaben ist es immer so
[edit]
ansonsten
if AnsiUpperCase(Key)[1] = Key then IstEinGroßbuchstabe;