Upper/Lowercase bei Char

[ReDoX]

Hi,
Ich habe ein Problem und zwar wie muss ich das umschreiben damit es funktioniert?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var AString : String;
begin
 AString[1] := LowerCase(AString[1]);
end;

Mfg ReDoX