Дан набор слов на английском языке, разделённых пробелами, в конце – точка. Выделить в последовательности нечётные слова прописными буквами

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
probel:integer;
I: Integer;
begin
probel:=0;
s:=edit1.Text;
i:=0;
while (s[i] <> '.') do
  begin
   
   if ((probel mod 2) = 1) then
    begin
     
    if s[i] <>' ' then s[i] := chr(ord(s[i])+ord('A')-ord('a'));
    end;
   if s[i]<> ' ' then
    begin
    i:=i+1;
    continue;
    end;
  probel:= probel+1;
  i:=i+1;
  end;
Edit2.Text:=s;
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var
t:TStringList;
s:string;
i:integer;
begin
// читаем строку из edit1
s:=edit1.text;
  t:=TStringList.create; //создаём класс
 //мы заменяем все пробелы на символы конца строки
  t.text:=stringReplace(s,' ',#13#10,[rfReplaceAll]);
  //Выделяем в последовательности нечётные слова прописными буквами
  s:='';
  for I := 1 to t.Count do begin
                               // проверяем если четное то изменяем буквы на прописные
                              if (i mod 2)=0 then s:=s+AnsiUpperCase(t[i-1])+' '
                              else s:=s+t[i-1]+' ';
 
                               end;
// выводим результат в edit1
 edit1.Text:=s;
end;