У меня все получилось. Там все намного прощее:
Во Flash
Код:
on (release) {
fscommand("Click", ocenca);
}
В Delphi
Код:
procedure TMain.ShockwaveFlash1FSCommand(ASender: TObject; const command,
args: WideString);
var a:WideString;
begin
if command = 'Click' then
begin
a:=args;
Edit1.text:=a;
end
end;
Вот и все! Всем спасибо за советы.