Rita med kod i Delphi...

Någon vändlig skäl som kan skriva hur koden nedan ( visual basic ) ska se ut i Delphi ? har frågat innan men inte fått något svar =(

[code:1]
Sub DrawFace()

Picture1.FillStyle = vbSolid
Picture1.FillColor = vbYellow
Picture1.Circle (48, 48), 45
Picture1.FillColor = vbBlack
Picture1.Circle (30, 35), 10
Picture1.Circle (65, 35), 10
Picture1.Circle (47, 55), 8
Picture1.DrawWidth = 2
Picture1.Circle (48, 50), 30, 3.4, 6, 1#
End Sub[/code:1]

fråga i #delphi på quakenet...