var
Arq: TResourceStream;
begin
begin
Arq:= TResourceStream.Create(HInstance, 'fight_stg', 'KOMFILE');
try
Arq.SaveToFile(Edit1.Text+'\Stage\fight_stg.KOM');
finally
Arq.Free;
end;
end;
ShowMessage('Ativado com sucesso.');
end;