Die Frage ist, was du überhaupt machen willst. Deine Funktion wandelt das erste Zeichen im String in ein großgeschriebenes Zeichen um. In dem String steht aber noch überhaupt nichts drin...
Delphi bringt keine LowCase-Funktion mit. Deshalb musst du dir selber eine schreiben:
Delphi-Quellcode:
function LowCase(c: Char): Char;
begin
if c in ['A'..'Z'] then
c := Chr(Ord(c) - Ord('A') + Ord('a'));
Result := c
end;