I am trying to use a TTimer.. but I'm getting a type mismatch for some reason. This example is ripped right off of @Daniel's Form tutorial.
Simba Code:
var
frmMain: TForm;
Params: TVariantArray;
timerUpdate:TTimer;
procedure OnTimeUp(Sender: TObject);
begin
Writeln('5 seconds have passed!');
end;
procedure InitialiseForm;
begin
frmMain := TForm.Create(nil);
frmMain.Show;
begin
timerUpdate := TTimer.Create(frmMain);
timerUpdate.INTERVAL := 5000;
timerUpdate.Enabled := True;
timerUpdate := @OnTimeUp;
end;
end;
begin
ThreadSafeCall('InitialiseForm', Params);
frmMain.Close;
frmMain.Free;
end.
Type mismatch at this line:
Simba Code:
timerUpdate := @OnTimeUp;