[Кодер]

В обработчике таймера (3) я бы исправил так:

Код:

if label2.caption='Заупщена' then
begin
   Button2.Enabled := False;
   Button1.Enabled := True;
   Label2.Font.Color := clGreen;
   Label2.Font.Style := Label2.Font.Style + [fsBold];
end
   else
begin
   Button2.Enabled := True;
   Button1.Enabled := False;
   Label2.Font.Color := clRed;
   Label2.Font.Style := Label2.Font.Style + [fsBold];
end;