Hola, he dado por hecho que los tags HTML son un error xD
Te he escrito esta función que te extraerá la inforamción, fila por fila:
Código Delphi
[-]procedure TForm1.ParsearInformacion(Info: String);
var
n: Integer;
Ancho,
Alto: String;
begin
with TStringList.Create do
try
Text:=Info;
for n:=0 to Count - 1 do
begin
Ancho:=Copy(Strings[n], 1, Pos(' ', Strings[n]) - 1);
Alto:=Copy(Strings[n], Length(Ancho) + 2, Length(Strings[n]));
end;
finally
Free;
end;
end;
Como puedes ver, tienes que hacer algunos cambios para que guarde la información donde mas te guste, por ahora he creado dos variables String locales.
Este código funciona tanto en Delphi como con Lazzarus.
Saludos.