[QaK]

var m,m1:TMemo;
    f1,f2:TForm;
procedure Init; //Вызывается при включении скрипта
begin
           f1:=TForm.Create(nil);
           f1.width:=100;
           f1.heigth:=100;
           f1.left:=100;
           f1.top:=100;
    m:=TMemo.Create(f1);
    m.parent:=f1;
    m.align:=alClient;
    m.ReadOnly:=true;
    m.ScrollBars:=ssBoth;
    m.Lines.Add(TimeToStr(now)+': Скрипт запущен');
           
            f2:=TForm.Create(nil);
           f2.width:=100;
           f2.heigth:=100;
           f2.left:=300;
           f2.top:=100;
    m1:=TMemo.Create(f2);
    m1.parent:=f2;
    m1.align:=alClient;
    m1.ReadOnly:=true;
    m1.ScrollBars:=ssBoth;
    m1.Lines.Add(TimeToStr(now)+': Скрипт запущен');
end;
procedure Free; //Вызывается при выключении скрипта
begin
    m.Free;
           m1.Free;
           f1.Free;
           F2.free;
    HideTab;
end;