[NumLock]

Сообщение от ALexandr555

могу ли я как то вызвать не объявляя в том месте переменную PAI

да, запросто:

Код:

type
  PAI = ^TAI;
  TAI = record
    pos: Integer;
    index: Integer;
  end;

function timer(val: TAI): String;
begin
  Result:=IntToStr(val.pos)+':'+IntToStr(val.index);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption:=timer(PAI(PChar(#64#8#0#0+#220+#7#0#0))^);
  // 2112:2012
  // 2112 = 840h = 8h, 40h = 0, 0, 8, 64
  // 2012 = 7DCh = 7h, DCh, 0, 0, 7, 220 
end;