[Anton5]

Большое спасибо за помощь, но данный код не работает. При проверке происходит ошибка "Ошибка: Undeclared identifier: 'heigth'"
В свой скрипт вставил следующее:

m: TMemo;
f1:TForm;
procedure Init; //Вызывается при включении скрипта
begin
	Randomize;
	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)+': Скрипт запущен');
end;
procedure Free; //Вызывается при выключении скрипта
begin
	m.Free;
	f1.Free;
	HideTab;
end;