Проектирование компиляторов

Необходимо построить четверки для выделенного выражения :
for I := 0 to 19 do P:=New(Pbutton, cmCalcButton);
В качестве примера как должно быть :
Форма представления в виде четверок
if(Status=csError) and (Key'C') then Key:=' ';
(0) - , Status , csError , T1
(1) NZ , 5 , T1 , -
(2) - , Key , 'C' , T2
(3) Z, 5 , T2, -
(4) := , ' ' , , Key
(5) …..