Delphi1: Need 16 bit ASM for pixels property

Anybody got some Delphi code to speed up the get/set pixels property.   We
have a crossfade on two 800x600 images which is ok (steps every second at
the moment) but is let down by the slowness of the pixels property in
Delphi1.

We have an ASM routine but it's 32bit :(

Thanks for any help.

Geoff Coope
silkmoth plc