Wskaźnik analogowy

Jak zrobić coś na wzór samochodowego licznik lub zegarka?
Jakiej funkcji matem [???] atycznej trzeba użyć by wyliczyć wspórzędne?

Może zrób to na okręgu. Funkcje matematyczne?

Function Kolo(O:TPoint;R:Word;Kat:Word):TPoint;
Begin
Result:=O;
Inc(Result.X,Trunc(RCos(KatPi/180)));
Dec(Result.Y,Trunc(RSin(KatPi/180)));
End;

szymek pozwolisz ze napisze cosod siebie ;P
powiedzmy ze znamy długość promienia tarczy, ktory ma 7 i posiadamy jego canvas bo to jest timage :)
wiec
function pkat(centerx,centery, promien, kat : integer) : tpoint;
var
xs,ys : integer;
lol : tpoint;
begin
xs := round(promiensin(katpi/180)+centerx);
ys := round(promiencos(katpi/180)+centery);
//chociaz round wolniejsze od trunc ja tu mam round
lol.x := xs;
lol.y := ys;
result := lol;
end;

i teraz funkcja rysująca strzałkę
var
pop : tpoint;

begin
pop := pkat(image1.width div 2,image1.height div 2,4,270);
image1.canvas.moveto(image1.width div 2,image1.height div 2);
image1.canvas.lineto(pop.x,pop.y);

koniec :P