Nur eine Sache zum Thread-Teil: was soll der Thread denn abarbeiten wenn erstens keine Instanz erstellt wird und zweitens die Execute-Methode leer ist?
Lass das mit dem Thread lieber bleiben und nutze
Delphi-Quellcode:
TTask.Run(
procedure
begin
TThread.Queue(nil,
procedure
begin
blinki;
end);
end);
Wieso rufst du blinki denn nicht einfach 10x hintereinander auf?