Дан текст, состоящий из слов. Слова разделены одним пробелом. В пятом слове строчные латинские буквы заменить заглавными (Delphi)

[Kat9]

Дан текст , состоящий из слов. Слова разделены одним пробелом. В пятом слове все строчные буквы латинского алфавита заменить заглавными.

[Stilet]

Попытки были?

[XE5]

Kat9

procedure TForm1.FormCreate(Sender: TObject);
var
  s: string;
  TS: TStringList;
begin
  s := 'раз два три четыре пять шесть';
  TS := TStringList.Create;
  TS.Delimiter := ' ';
  TS.DelimitedText := s;
  TS[4] := AnsiUpperCase(TS[4]);
  s := TS.DelimitedText;
  TS.Free;
  ShowMessage(s);
end;

Помощь студентам

[Kat9]

Вставила код в программу выдает ошибку выделяет красным строку где описывается форма)) можно исходник архивом ?