program Украина_Выборы_2004;
begin
Выборы := ТВыборы.Create;
Выборы.Тур:=0;
Президент.KillOldInstance;
repeat
inc(Выборы.Тур);
Президент.Handle:=Выборы.GetПрезидентOf('Янукович', 'Ющенко');
if Выборы.Тур = 67 then Пиздец.Create;
until Президент.LastName<>'Янукович'
;
Выборы.Free;
if Президент.LastName='Ющенко' then raise error on e: do
begin
e.Message:='System failure. Please, reboot system';
Президент.KillNewInstance;
SendMessage(WM_Reboot);
end;
end.