Edit znak 1

E mam problem jak zminić w Edicie pierwszą literę na Dużą lub małą.
Wiem jak zmienić w całym Edicie ale mi chodzi tylko o pierwszą literę.
Proszę pomóżcie :( WAZNE

var
s:string;
begin
s:=string(Edit1.Text);
s[1] := UpCase(s[1]);
Edit1.Text := s;