unit Ty_Script_Editor;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, EmbeddedScriptEngine, Menus, uPSComponent;

type
  TfrmEditor = class(TForm)
    cmdOK: TButton;
    Memo1: TMemo;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Open1: TMenuItem;
    Save1: TMenuItem;
    SaveAS1: TMenuItem;
    Help1: TMenuItem;
    N1: TMenuItem;
    Edit1: TEdit;
    procedure Open1Click(Sender: TObject);
    procedure Save1Click(Sender: TObject);


     private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  frmEditor: TfrmEditor;

implementation

{$R *.DFM}


procedure TfrmEditor.Open1Click(Sender: TObject);
begin
memo1.Lines.LoadFromFile(extractfilepath(paramstr(0)) + 'FirstEffort.pas');
end;

procedure TfrmEditor.Save1Click(Sender: TObject);
begin
memo1.Lines.SaveToFile(extractfilepath(paramstr(0)) + 'FirstEffort.pas');

end;

end.