Czy ktoś może wykonać takie proste grafiki?

witam
mam bardzo ważną sprawę.
czy moglby ktos wykonac w Delphi takie grafiki jakie sa pod spodem i podeslac tutaj kod ??
Bylbym bardzo wdzieczny [browar]

Cena do uzgodnienia?

Pierwsza:

var i:integer;
begin
for i:=1 to 4 do
  begin
  Canvas.MoveTo(0, i*20);
  if (i<4) then
    Canvas.LineTo(80, i*20);
  Canvas.MoveTo(i*20, 0);
  Canvas.LineTo(i*20, 80);
  Canvas.MoveTo(80, 0);
  Canvas.LineTo(80+i*20, 80);
  end;
Canvas.Brush.Style:=bsSolid;
Canvas.Brush.Color:=clBlack;
Canvas.Ellipse(78, 0, 85, 7);
end;

Druga:

var i:integer;
begin
for i:=1 to 5 do
  begin
  Canvas.MoveTo(100, 50);
  Canvas.LineTo(0, i*20);
  Canvas.MoveTo(100, 50);
  Canvas.LineTo(180, i*20);
  end;
Canvas.Brush.Style:=bsSolid;
Canvas.Brush.Color:=clBlack;
Canvas.Ellipse(96, 46, 104, 54);
end;

wielkie dzieki a zeby byly one wieksze to ktora zmienna zmienic ?

PS. jesli mozna to jeszcze dzis dam kolejne graficzki takie prostsze

jak chcesz większe to pobaw się z wartościami.. zrób np. większe róznice pomiędzy nimi ;-)

jesli jeszcze mozna to takie 3 osttanie

Zamiast czekać na gotowce, zrozum przykłady,

no wlasnie nie kumam tego w ogóle dlatego prosze o gotowe :-/