[techno]

Этот ваш код работает? можно же передать соманду типа

on (release) {
fscommand("Click?"+param);
}

А потом обработать в делфи:

procedure TMain.ShockwaveFlash1FSCommand(ASender: TObject; const command,
  args: WideString);
begin
if (pos(command, 'Click?')=1) then
      begin
       peremennaya:=copy (command,7,10000);
      Main.Hide;
     Vvod.Show ;
     end
end;