Delphi-Quellcode:
with Canvas do
begin
Brush.Color := clRed;
FillRect(GetClientRect);
Pen.Style := psSolid;
Pen.Color := clBlue;
Pen.Style := psDot;
Rectangle(GetClientRect);
end;
sollte doch etwas zeichnen.
Setze mal auch noch Oval.Left und Oval.Top.