Здравствуйте. Я пишу программу на языке Pascal. Подскажите пожалуйста, как мне записать в блок-схему мои 18 if-ов?

Question

Я пишу программу на языке Pascal. Подскажите пожалуйста, как мне записать в блок-схему мои 18 if-ов? 
 Вот листинг процедуры: 
 
procedure TForm1.Prov(Sender: TObject); 
begin 
 if (((Button1.Caption='x') and (Button2.Caption='x')) and (Button3.Caption='x')) then Label1.Caption:='Выиграли крестики'; 
 if (((Button4.Caption='x') and (Button5.Caption='x')) and (Button6.Caption='x')) then Label1.Caption:='Выиграли крестики'; 
 if (((Button7.Caption='x') and (Button8.Caption='x')) and (Button9.Caption='x')) then Label1.Caption:='Выиграли крестики'; 
 if (((Button1.Caption='x') and (Button4.Caption='x')) and (Button7.Caption='x')) then Label1.Caption:='Выиграли крестики'; 
 if (((Button2.Caption='x') and (Button5.Caption='x')) and (Button8.Caption='x')) then Label1.Caption:='Выиграли крестики'; 
 if (((Button3.Caption='x') and (Button6.Caption='x')) and (Button9.Caption='x')) then Label1.Caption:='Выиграли крестики'; 
 if (((Button1.Caption='x') and (Button5.Caption='x')) and (Button9.Caption='x')) then Label1.Caption:='Выиграли крестики'; 
 if (((Button3.Caption='x') and (Button5.Caption='x')) and (Button7.Caption='x')) then Label1.Caption:='Выиграли крестики'; 
 
 if (((Button1.Caption='о') and (Button2.Caption='о')) and (Button3.Caption='о')) then Label1.Caption:='Выиграли нолики'; 
 if (((Button4.Caption='о') and (Button5.Caption='о')) and (Button6.Caption='о')) then Label1.Caption:='Выиграли нолики'; 
 if (((Button7.Caption='о') and (Button8.Caption='о')) and (Button9.Caption='о')) then Label1.Caption:='Выиграли нолики'; 
 if (((Button1.Caption='о') and (Button4.Caption='о')) and (Button7.Caption='о')) then Label1.Caption:='Выиграли нолики'; 
 if (((Button2.Caption='о') and (Button5.Caption='о')) and (Button8.Caption='о')) then Label1.Caption:='Выиграли нолики'; 
 if (((Button3.Caption='о') and (Button6.Caption='о')) and (Button9.Caption='о')) then Label1.Caption:='Выиграли нолики'; 
 if (((Button1.Caption='о') and (Button5.Caption='о')) and (Button9.Caption='о')) then Label1.Caption:='Выиграли нолики'; 
 if (((Button3.Caption='о') and (Button5.Caption='о')) and (Button7.Caption='о')) then Label1.Caption:='Выиграли нолики'; 
 
 if Label1.Caption='Выиграли крестики' then OffButton(Sender); 
 if Label1.Caption='Выиграли нолики' then OffButton(Sender); 
end;

Андрей Паршин · Accepted Answer

Так и писать, по-порядку.

Натали · Answer

Можно и не писать, просто в один блок иф выиграли да-нет. 
Конечно, если особо рисовать нечего, то можешь все рисовать, но можно и обобщенно

Ира Берегова · Answer

это не программа это гавно сделай с помощью 
case true of 
//а здесь перичисли все возможные варианты 
end; 
 а вообще по хорошему создал бы массив - матрицу со значениями - это был бы уже не говнокод :) 
 п с 
 а к существующему коду блок-схема элементарно рисуется в 18 ромбах перечисляешь условия и строишь связи если условие выполняется а если не выполняется то у тебя ничего не происходит оставь левую сторону ромба без связи