procedure TForm1.Button1Click(Sender: TObject);
var s,s1:string;
    i:integer;
begin
s:=Edit1.Text;
i:=2;s:=' '+s; //добавим пробел в начало и начнем со второго символа
while i<=length(s) do //пока не конец строки
   begin
     if not(s[i] in ['A'..'Z','А'..'Я','Ё'])and(s[i-1]=' ')then  //если буква не заглавная и перед ней пробел, то
       begin
         while (s[i]<>' ')and(i<=length(s))do //пока не следующий пробел или конец строки
           begin
             s1:=s1+s[i]; //переписываем буковку в новую строку
             inc(i); // переходим к следующей буковке
           end;
         s1:=s1+' ';//добавляем пробел
       end;
     inc(i); //переходим к следующему слову
   end;
Edit1.Text:=s1;//выводим исправленное предложение
end;