EDIT + znak 1

Jak zrobić żeby zmienić w editcie Index pierwszeszej litery na duży lub mały. Wiem że tmożna w edicie zmienić CharChase na upper i lowwer. Ale ja nie chce zastosować tego do całego editu tylko do jego pierwszego znaku !
//Nie zaczyna sie zdania od EJ lolku

Może zbyt zgrabne rozwiązanie to nie jest, ale działa tak jak chcesz:

dodaj StrUtils do uses.

Edit1.Text := LowerCase(LeftStr(Edit1.Text, 1)) + RightStr(Edit1.Text, Edit1.GetTextLen-1);

var
  s:string;
begin
  if Length(Edit1.Text)>0 then
    begin
     s:=Edit1.Text;
     s[1]:=AnsiLowerCase(s[1])[1];  //albo ansiuppercase
     Edit1.Text:=s;
    end;
end;

if length(Edit1.txet) = 1 then Edit1.text := AnsiUpperCase(Edit.text);

if length(Edit1.txet) = 1 then Edit1.text := AnsiUpperCase(Edit.text);

przeciez to dziala tylko kiedy Edit ma 1 znak, a jemu chodzi nie o 1 znak tylko o PIERWSZY znak

PS. pq - Widzisz, Ty piszesz całą procedurkę a ja to w 1 poleceniu załatwiłem ;)

PS. pq - Widzisz, Ty piszesz całą procedurkę a ja to w 1 poleceniu załatwiłem ;)

Ale moje może (choć nie musi) być efektywniejsze! I nie wymaga StrUtils.