Проблема внутренней передачи данных

[Alex Cones]

Type
  TTexture = Record
   Name   : PChar;
   Bitmap : HBitMap;
   Width  : LongInt;
   Height : LongInt;
   BType  : Word;
  End;

Вызываю:

VirtualDraw(Warehouse.Buffer.Tex, PChar(CurDir + '\Resource\Buffer.bmp'));

↓

 Procedure VirtualDraw(Var Source : TTexture; Name : PChar);
  Var
   Bit     : BitMap;
   Loc     : HDC;
  Begin
   ...
   Source.Name := Name;
   ...                                                               LogS('VIRTUAL DRAW    = ' + Source.Name);ShowMe(Source.Name);
  End;

Здесь и лог и messagebox показывают правильно, CurDir + '\Resource\Buffer.bmp'.

Потом происходит закраска всех пикселей цветом:

UNTGraph.EffectFillAll(Warehouse.Buffer.Tex, $0);

↓

Procedure EffectFillAll(Var T : TTexture; Color : Integer);
 ...                                                            ShowMe(T.Name);LogS('FILL ALL        = ' + T.Name);
 End;

А вот здесь показываются не имя, а предыдущий tick и сообщение, который записывался в логе.

 Procedure LogS(Mesg : String);
  Var
   S : String;
  Begin
   If LogMode Then
    Begin
     Str(GetTickCount - LogStartTick, S);
     While Length(S) <> 8 Do S := '0' + S;
     WriteLn(LogFile, S + ' ' + Mesg);
    End;
  End;

00001468 CREATING DC = ON
00001656 FILL ALL = 00001468 CREATING DC = ON
00001703 DRAW BUFFER = ON

___________________________________ ____

Выявил проблему. Но как решить не знаю.
Сейчас написано так:

VirtualDraw(Warehouse.DNABlock, PChar(CurDir + '\Resource\DNABlock.bmp'));
   VirtualDraw(Warehouse.Buffer.Tex, PChar(CurDir + '\Resource\Buffer.bmp'));

Буфер пишет нормальное имя в логе, DNA нет. Если их поменять местами, то будет наоборот- сдохнет имя буфера, а DNA будет нормально писаться в логах. листинг VirtualDraw есть выше.