Удаление однобуквенных слов и лишних пробелов

var
  Form1: TForm1;
  s,k,s1:string; i,Len,LenW :integer;
  const
  d = [' ', '.', ',', ':', ';', '!', '?', '-', #9, #10, #13];       //символы между словами
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
s:=stroka.Text;
Len := Length(S);
LenW := 0;
    for i := Len downto 1 do
     begin
      if S[i] in D then Continue;    //Пропустить разделители между словами
      Inc(LenW);         //Длина слова
      if (i = 1) or (S[i - 1] in D) then         //Начало слова
      begin
      if LenW = 1 then Delete(S, i, LenW);  //Если слово однобуквенное удалить его
 
    LenW := 0;
    end;
    end;                           //Обнуление длины слова.
    Len := Length(S);
 for i := Len downto 1 do
 if (S[i] in [' ', #9]) and ((i = 1) or (S[i] = S[i - 1])) then
    Delete(S, i, 1);
    Len := Length(S);               //Если в конце строки остался пробел - удалить его
  if (Len > 0) and (S[Len] in [' ', #9]) then Delete(S, Len, 1);
//while pos('  ',s)<>0 do s:=stringreplace(s,'  ',' ',[rfreplaceall]);  //замена в строке s двойных пробелов одинарным, в конце указано, что удаляться будет во всей строке с учетом регистра
rez.Text:=s;
end;
end.