Процедуры и функции Опции

[status]

Нужна помощь в решение задачи :

Разработать функцию IsPerev(const S:string):boolean, определяющую, является ли строка S перевертышем (читается одинаково с начала и с конца). С помощью данной функции вывести только такие строки из введенного набора, которые являются перевертышами.

[Артемий]

Function TForm1.Palindrom(Const s: String): Boolean;
var
len,i: Integer;
flag: boolean;
begin
len:=length(s)+1;
for i:=1 to len div 2 do begin
 if s[i]=s[len-i] then flag:=true else flag:=false;
 if flag=false then begin palindrom:=flag; break; end
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
 for i:= 0 to ListBox1.Count-1  do begin
  if Palindrom(ListBox1.Items[i]) then begin
   ListBox2.Items.Add(ListBox1.Items[i]);
  end;
end;
end;

А так?