SRL Archive - OSR Help

program New;
 {$DEFINE SRL5}

{$i srl/srl.simba}
var
   Timer1: TTimer;

Procedure hi(Sender: TObject);

begin
  writeln('getpage');
  GetPage('http://website.com');
end;

Procedure CreateTimer;

Begin
  Timer1 := TTimer.Create(nil);
  Timer1.Interval := 2000;
  Timer1.Enabled := True;
  Timer1.OnTimer := @hi;
End;

Procedure DeleteTimer;

Begin
  Timer1.Enabled := False;
  Timer1.Free;
End;
Procedure ScriptTerminate;

Var
   V: TVariantArray;

Begin
  SetLength(V, 0);
  ThreadSafeCall('DeleteTimer', V);
 AddOnTerminate('DeleteTimer');
End;
procedure cleanup;
begin
writeln('Cleanup');
ScriptTerminate;
end;

Var
   V: TVariantArray;
   t: integer;
begin
ClearDebug;
SetupSRL;
  SetLength(V, 0);
  ThreadSafeCall('CreateTimer', V);
   AddOnTerminate('cleanup');
  t := getsystemtime;
  Repeat
    Wait(100);
    writeln('Time elapse: ' + inttostr(getsystemtime - t));
  Until getsystemtime - t > 8000;
end.

This is the output, it seems getPage kills the all the processes o.O

Executing : CreateTimer
formWriteln: Time elapse: 94
formWriteln: Time elapse: 203
formWriteln: Time elapse: 312
formWriteln: Time elapse: 421
formWriteln: Time elapse: 530
formWriteln: Time elapse: 640
formWriteln: Time elapse: 764
formWriteln: Time elapse: 874
formWriteln: Time elapse: 983
formWriteln: Time elapse: 1092
formWriteln: Time elapse: 1201
formWriteln: Time elapse: 1326
formWriteln: Time elapse: 1435
formWriteln: Time elapse: 1544
formWriteln: Time elapse: 1654
formWriteln: Time elapse: 1778
formWriteln: Time elapse: 1888
formWriteln: Time elapse: 1997
getpage
formWriteln: Cleanup
Executing : DeleteTimer
formWriteln: Successfully executed.

TTimer components are broken in Simba.