procedure TSaveForm.CreateFla(FlObj:TShockwaveFlash);
 //var FlObj:TShockwaveFlash;
 var path:String;
begin
 try
 FlObj := TShockwaveFlash.Create(SaveForm as TComponent);
  with  FlObj do begin
   path := Application.ExeName;
   SetLength(path,Length(path)-15);
   Movie := path+'ts.swf';
   Top := 0;
   Left := 0;
   Height := 100;
   Width := 300;
   FlObj.OnFSCommand := FFSCommand;
   Parent := (SaveForm as TWinControl);
   //FlObj.;
  end;
 except
  ShowMessage('Ioeaea Eieoeaeecaoee!');
  FlObj.Free;
 end;
end;

procedure TSaveForm.FFSCommand(ASender: TObject; const command,
      args: WideString);
begin
 if command = 'save' then SaveFile(args);
 //ShowMessage(command);
end;


procedure TSaveForm.Button1Click(Sender: TObject);
begin
//
end;

procedure TSaveForm.SaveFile(Text:WideString);
var
  File1 : TextFile;

begin
 if SaveDialog1.Execute then begin
  AssignFile (File1, SaveDialog1.FileName);
  Rewrite(File1);
  try
   write(File1, Text);
  finally
   CloseFile(File1);
  end;
 end;
end;


procedure TSaveForm.FormCreate(Sender: TObject);
begin
  CreateFla(FlObj1);
end;

end.