нужна блок схема на данную программу

[чакс]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if form1.AlphaBlendValue>20 then
form1.AlphaBlendValue:=form1.AlphaB lendValue-10
else
begin
timer1.enabled:=false;
timer2.enabled:=true;
end;

end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if form1.AlphaBlendValue<240 then
form1.AlphaBlendValue:=form1.AlphaB lendValue+10
else
begin
timer1.enabled:=true;
timer2.enabled:=false;
end;

end;

end.