var
  s1, s2: String;
begin
  s1 := '';
  s2 := '';
  table.first;

  while not table.eof do
  begin
    s1 := s1 + table_name.asString + ' ' + table_price.asString + #13;
    table.next;
  end;

  while not table.eof do
  begin
    s2 := s2 + table_name.asString + ' ' + table_price.asString + #13;
    table.next;
  end;

  showmessage(s1);
  showmessage(s2);
end;