Flash и Delphi

[Donor]

У меня все получилось. Там все намного прощее:
Во 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;

Вот и все! Всем спасибо за советы.