| 413 |  | link := link div 256; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 414 |  | images[i] := TOniImage.Create; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 415 |  | images[i].LoadFromTXMP(ConnectionID, link); | 
 
 
 
 
 
 
 
 
 | 416 | – | SetLength(FImages, 1); | 
 
 
 
 
 
 
 
 
 | 417 | – | NewImage(width, height, ifA1R5G5B5, FImages[0]); | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 416 |  | end; | 
 
 
 
 
 
 
 
 | 417 | + | SetLength(FImages, 1); | 
 
 
 
 
 
 
 
 | 418 | + | NewImage(width, height, images[0].Format {ifA1R5G5B5}, FImages[0]); | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 419 |  | for y := 0 to rows - 1 do | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 420 |  | begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 421 |  | for x := 0 to cols - 1 do | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 425 |  | y_start := 0; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 426 |  | for i := 0 to x do | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 427 |  | if i < x then | 
 
 
 
 
 
 
 
 
 
 
 | 428 | < | x_start := x_start + images[i].Image[0].Width; | 
 
 
 
 
 
 
 
 
 | 428 | > | x_start := x_start + images[i].Image[1].Width; | 
 
 
 
 
 
 
 
 
 
 
 | 429 |  | for i := 0 to y do | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 430 |  | if i < y then | 
 
 
 
 
 
 
 
 
 
 
 | 431 | < | y_start := y_start + images[i].Image[0].Height; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 432 | < | CopyRect(images[imgid].Image[0], 0, 0, images[imgid].Image[0].Width, | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 433 | < | images[imgid].Image[0].Height, FImages[0], x_start, y_start); | 
 
 
 
 
 
 
 
 
 | 431 | > | y_start := y_start + images[i].Image[1].Height; | 
 
 
 
 
 | 432 | > | CopyRect(images[imgid].Image[1], 0, 0, images[imgid].Image[1].Width, | 
 
 
 
 
 | 433 | > | images[imgid].Image[1].Height, FImages[0], x_start, y_start); | 
 
 
 
 
 
 
 
 
 
 
 | 434 |  | end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 435 |  | end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 436 |  | for i := 0 to linkcount - 1 do |