// в глобальных var kk: integer; asm //тут код на асме, который по заданию mov kk, ecx end; // и в процедуре Edit1.text:=inttostr(kk);