Programovanie - skuska - edit

Chcela by som vas poziadat, 31.01 mam posledny termin skusky, programujem vo velkom ale vela veci mi nie je jasnych, nechcem aby mi tu niekto za mna robil ulohy to nie ale budem rada ak ma niekto usmerni alebo ak je tu niekto ochotny ma doucit za financnu odmenu z BA budem velmi rada, mne sa nepodarilo zatial nikoho najst a velmi mi na tej skuske zalezi, chcela by som pomôct na dnes s touto vecou...

mam toto:

Do formulára vložte tlačidlo, ktorému zmeňte popis na "Pyramída". Napíšte program, ktorý zabezpečí, aby sa pri jeho stlačení zmazala grafická plocha a náhodnou farbou sa nakreslila pyramída. Výška jedného stupňa pyramídy je 20 a šírka najmenšieho stupňa je tiež 20. Každý ďalší stupeň je o 40 väčší. Počet stupňov zadajte do Edit.

procedure TForm1.Button2Click(Sender: TObject);
var
i,x,y,a:Integer;
begin
for i:=0 to a do begin
a:=StrToIntDef(Edit1.Text,10);
x:=Image1.Width;
y:=0;
Image1.Canvas.Rectangle(x+20+i*a,y+20+i*a,x+20+(i+1)*a,y+20+(i+1)*a);
y:=y+40;
end;

end;

Ja viem ze mam nieco zle, ale chcem vediet co, ja sa s tym neskutocne trapim, Prosim vas, pomôzte mi.

Form obsahuje Image1 (velkost[200,200]), Edit1 a Button1. Maximalna velkost pyramidy je 4 (vysvetlene v kode).
Polygon je n-uholnik. Takze napiseme vrchlovy a on ich pospaja (v nasom pripade A,B,C kde C je vrchol).