FreePascal.ru

Здравствуйте, задание такое: Найти в предложении все слова, которые являются палиндромами и вывести их, вот код:
procedure TFmMain.BtPoiskClick(Sender: TObject);
var
s, t: string;
i, p: integer;
begin
LbExp.Caption := '';
S := EdMean.Text;
s += ' ';
repeat
p ...