[Страдалецъ]

Немножко улучшил, для перемигивания шашечками:

Код:

procedure TaxiLogo(Canvas: TCanvas; X,Y: Integer; BkColor,Color: TColor);
Const
  Box: TPoint = (X:20;Y:20);
Var
 i: Integer;
begin
 with Canvas
 do begin
    Brush.Color := BkColor;
    Rectangle(X,Y,X+Box.X*7,Y+Box.Y*2);
    Brush.Color := Color;
    for i := 0 to 6
    do if i mod 2 = 0
       then Rectangle(X+i*Box.X,Y,X+(i+1)*Box.X,Y+Box.Y)
       else Rectangle(X+i*Box.X,Y+Box.Y,X+(i+1)*Box.X,Y+Box.Y*2);
    end;
end;