if charInSet(myChar, ['A'..'Z']) then
begin 
    ShowMessage('Büyük harf');
end
else 
if charInSet(myChar, ['a'..'z']) then
begin
   ShowMessage('Küçük harf');
end
else
begin
   ShowMessage('Harf veya sayı değil');
end;