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