[VasyaTerkin]

Хорошая программка! Всегда хотел взглянуть на какой-нибудь эмулятор!

Я только не понял зачем там нужен отдельный поток, попробовал его убрать - сделал

TNewThread = class; //не class(TThread)
Procedure TNewThread.Execute;
Begin
while canrun do
begin
GetOpcode;
if delay_timer > 0 then Dec(delay_timer);
if sound_timer > 0 then Dec(sound_timer);
ExecuteOpcode;
Application.ProcessMessages;
sleep(1);
end;
end;

все вроде работает также.