Найти самое длинное симметричное слово в заданном предложении

[TimeWolf1]

Как в программе определяется симметричное слово или нет?

sW2 := S[i] + sW2; //Слово в обратном прочтении

и как составляется слово в обратном прочтении? Объясните подробнее пожалуйста.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
const
  //Множество разделителей
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
  S, sW1, sW2,word : String;
  i, Len,dl : Integer;
begin
  S := Memo1.Text; //Текст берём из Memo1
  Memo2.Clear;
  dl:=0;
  Len := Length(S);
  sW1 := ''; //Слово 
  sW2 := ''; //Слово в обратном прочтении
  for i := 1 to Len do
    //Если символ не является разделителем, значит он принадлежит слову 
    if not (S[i] in D) then
    begin
      sW1 := sW1 + S[i]; //Составляем слово
      sW2 := S[i] + sW2; //Слово в обратном прочтении
      if (i = Len) or (S[i + 1] in D) then //Отслеживаем конец слова
      begin
        //Если слово является палиндромом, ищем наибольшее из них
        if sW1 = sW2 then
        begin
        if length(sW2)>dl then
        begin
        word:=sW2;
        dl:=length(sW2);
 
        end;
        sW1 := '';
        sW2 := '';
      end;
    end;
 
 
 
end;
Memo2.Lines.Add(word);//Слово-палиндром
end;
end.

[Stilet]

Если не ошибаюсь:

const
  //Множество разделителей
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
  S, sW1, sW2,max : String;
  i, a,j : Integer; b:boolean;
begin
  S := Memo1.Text; //Текст берём из Memo1
  Memo2.Clear;
  Len := Length(S);
  a:=1;b:=1;
  sw2:='';max:='';
  for i := 1 to Len do begin
    if (S[i] in D) then    begin b:=true;
     for j:=a to i-1 do if sw[i-j]<>sw[j] then begin b:=false; break; end;
     if b then begin 
       sw1:=copy(s,a,i-a-1);
       if length(max)<Length(sw1) then max:=sw1;
     end;
     a:=i+1;
    end;
  end;
  Memo2.Lines.Add(max);//Слово-палиндром
end;

Как в программе определяется симметричное слово или нет?

http://yandex.ua/yandsearch?text=%D0...2015&numdoc=50

[TimeWolf1]

Можете по подробней объяснить что здесь выполняется и как?

for i := 1 to Len do begin
    if (S[i] in D) then    begin b:=true;
     for j:=a to i-1 do if sw[i-j]<>sw[j] then begin b:=false; break; end;
     if b then begin 
       sw1:=copy(s,a,i-a-1);
       if length(max)<Length(sw1) then max:=sw1;