filling big array of double

In my program I have to fill many big buffers with the same value,
I found this great function in grids.pas:

procedure FillDword(var Dest; Count: integer; Value: Integer); register;
asm
  XCHG  EDX, ECX
  PUSH  EDI
  MOV   EDI, EAX
  MOV   EAX, EDX
  REP   STOSD
  POP   EDI
end;

unfortunally I'm not able to do the same thing with an array of "double". Any help would be greatly appreciated.

Thanks

Henri Gourvest
http://www.progdigy.com
.

Relevant Pages