Losowanie litery

Jak wylosowac litere (wielka lub mala)?? Zwracac moze char lub string...

function Literka: Char;
var
 Litery: String;
begin

Litery := 'ABCDEFGHIJKLMNOPQRSTUVWXYZĄĆĘŁŃŚÓŻŹabcdefghijklmnopqrstuvwxyząćęłńśóżź';

  Result := Litery[Random(Length(Litery)-1) + 1];

end;

• Randomize w OnCreate;

Prościej przez CHR + F1

Chr() losuje nie tylko litery. Musiałbys określic kilka przedziałów z których miałby losować. Litery są w przedziałach: 65-90 (duże), 97-122 (małe), a do tego polskie znaki są porozrzucane w różnych miejscach.