[Rock2roll]

Прошу помочь! Я знаю что более нормальная программа работает при использовании булеанов. Тоесть
procedure Init;
begin
...
end;

procedure h;
begin
init:=true;
end;

В чём вопрос? У меня подобное компилит без проблем, но на эмуляторе и телефоне тупо вылетает. Я буду очень благодарен если мне обьяснят как осуществить:
1) Прорисовка картинки)
2) При нажатии на обьект (к примеру) иконку, init=true;
3) Init "живёт", пока не нажмут на что-то другое. Заранее спасибо.