Eigene Objekte -> PaintBox

[mimi]

Hallo,
ich habe lange gesucht und leider nichts gefunden was mir wirklich weiter geholfen hätte

Ich möchte gerne eigene Delphi Zeichen objekte erstellen wie z.b. ein Kreis oder ein Stern.
Dazu habe ich mir ein kleines Paint geschrieben.
Das speichern geht schon nur das vergrößern der objekte geht leider nicht.

Das vergrößern wollte ich so machen
(hier etwas code denn ich heute geschrieben habe)

Delphi-Quellcode:

procedure FillPixel(sx,sy,zx,zy:Integer; PaintBox:TPaintBox);
var
  x,y:Integer;
begin
  for y:=sy to zy do begin
    for x:=sx to zx do begin
      PaintBox.Canvas.Pixels[x,y]:=clBlack;
    end;
  end;

end;

procedure TForm1.ObenObj(F:TFileName);
var
  i,x,y,fx,fy,ox,oy:Integer;
  l:TStringList;
begin
  ox:=-1; oy:=-1;
  if FileExists(f) = True then begin
    l:=TStringList.Create;
    l.LoadFromFile(f);
    fx:=2;
    fy:=2;

    for i:=0 to l.Count-1 do begin
      x:=StrToInt(GetToken(l.Strings[i],':',1));
      y:=StrToInt(GetToken(l.Strings[i],':',2));
//      PaintBox2.Canvas.Pixels[x,y]:=clBlack;

      if (ox > -1) and (oy > -1) then
        FillPixel(ox,oy,x *fx,y *fy,PaintBox2);
      ox:=x *fx;
      oy:=y *fy;
    end;
  end
  else
    ShowMessage('Dateinamen gibt es nicht !');
end;

doch leider geht FillPixel nicht so wie ich es mir vorgestellt habe. hier ein Bild ich würde gerne nur die umrahmung und nicht das Innere, das lieg an in der FillPixl funktion und zwar bei den For y schleifen.