Здравствуйте! я использую ассемблерную вставку в делфи... Подскажите плз как передать переменную. Например, я вызываю процедуру KBlock в ассемблерной вставке, эта процедура должна обработать переменную Temp, которую использую ранее до процедуры. Хотя и объявляю эту переменную и R переменную в private , даёт ошибку неизвестная переменная. Затем мне нужен результат этой процедуры возратить или куда-нибудь сохранить, чтобы передать другой процедуре Shift11R и опять возвратить результат в переменной R, чтобы дальше с ней работать? Думала вызвать через функцию эти процедуры, т.е. выйти из ассемблерной вставки и в делфи вызвать фунцию,потом дальше продолжить типа begin asm @cycle1..end; функция asm..loop @cycle1 end; end; но прерывать цикл кажется нельзя, потому, что пишет неизвестная метка и потом мне надо будет фозвращать маассив байтов, а я не знаю как это делать, точнее пробывала, но безрезультатно. Как мне быть???

Приложение:
...
private
Temp: string[4];
R:string[8];
...
procedure KBlock;
var
begin
asm
...
xor ebx, ebx
...
mov al, byte ptr Temp[ebx]
...
end;
for i:=0 to 7 do
Temp[i]:=StrToInt(ShifrZamForm2.StringGrid1.Cells[str[i], stb[i]]);
end;
...

procedure ShiftR11;
begin
asm
...
rcr Temp[ebx], cl
inc ebx
mov ecx, 4
xor ebx, ebx
mov al, byte ptr Temp[ebx]
mov byte ptr R[ebx], al
...
end;
end;

...
function shifr(N1, N2:string): String;
var
Temp: string[4];
begin
asm
@cycle1:
...
mov al, byte ptr N1[ebx]
mov byte ptr Temp[ebx], al
...
call KBlock;
call ShiftR11;
...
xor byte ptr R[ebx], al
; ещё код
...
loop @cycle1
end;
end;