pierwsze litery z wyrazie

Mam taką procedure na to, aby wszystkie pierwsze litery w wyrazie były pisane duzą literą:

var
I:Integer;
Tekst:String;
Begin
Tekst:=synmemo.Text;
For I:=1 To Length(Tekst)-1 Do
Begin
if (tekst[i]=' ') and (i

var
I:Integer;
Tekst:String;

Begin
Tekst:=synmemo.Text;
Tekst[1]:=Upcase(Tekst[1]);
For I:=1 To Length(Tekst)-1 Do begin
if (tekst[i]=' ') and (i

Też nie działa

Coś żle przepisałeś! Sprawdziłem u siebie i działa!

var
I:Integer;
Tekst:String;
begin
Tekst:=Memo1.Text;
Tekst[1]:=Upcase(Tekst[1]);
For I:=1 To Length(Tekst)-1 Do
begin
if (tekst[i]=' ') and (i

To wkoncu ktory kod dziala??

sprawdziłem i ten ostatni działa [hurra]