Hello, there you go 
Simba Code:
Program Get_Info;
var
Name, Colour, CoordX, CoordY, Part, Source :String;
I :Integer;
begin
Source := GetPage('http://pastebin.com/raw.php?i=cQh47fBJ');
for I := 0 to 31 do
begin
Part := Between('<Item' + IntToStr(I) + '>', '</Data>', Source);
Name := Between('<Name>', '</Name>', Part);
Colour := Between('<Colour>', '</Colour>', Part);
CoordX := Between('<CoordX>', '</CoordX>', Part);
CoordY := Between('<CoordY>', '</CoordY>', Part);
WriteLn('Information For Current Data(' + IntToStr(I) + ')');
WriteLn(Name);
WriteLn(Colour);
WriteLn(CoordX);
WriteLn(CoordY);
end;
end.
~Home