Krzywe lissajou w delphi egzamin

Witam, z delphi nie mam zbyt duzego doswiadczenia a tu nagle mam wykonac w nim krzywe lissajou. Przeszukalem internet i jedynie co znalazlem to tylko tyle, ze kod zajmuje tylko kilka linijek. Prosze o jakas pomoc. :(
Prosze o przyklad kodu o ile to dla was nie byloby problemem.

To Twoje "nagle" mnie bawi. Semestr się już kończy - zaczął się ponad 3 miesiące temu. Jeżeli napisanie tych ~~ 30 linijek kodu(z rysowaniem i GUI) Cię przerasta to zrobię to za Ciebie za 50pln. Chyba, że możesz pokazać co udało Ci się zrobić do tej pory.

Nagle wynika z tego, ze z krzywymi lissajous nie mialem nigdy doswiadczenia, nigdy tego nie przerabialem, samo progrmowanie jest czyms ponad moje sily, czego nie ukrywam. Napisalem kod na funkcje cosinusa oraz udalo mi sie dojsc do tego jak to nalezy narysowac na ekranie w sposob chyba nalezyty. Z tymi krzywymi leże , moze jeszcze gdybym wiedzial jaki wzor moglbym zastosowac w delphi. Z tym pisaniem za kase to tak troche mi nie bardzo podchodzi. Dokladnie nie wiem czego moge sie spodziewac na zaliczeniu. Ja po prostu patzrac na wzor tego kodu chce sie po prostu przygotowac do tego co moze mnie czekac. Ale dziekuje mimo to za chec pomocy

Jeżeli udało Ci się narysować cosinusa to z tym: http://pl.wikipedia.org/wiki/Krzywa_Lissajous też nie powinieneś mieć problemu.

procedure TForm1.Button1Click(Sender: TObject);
begin
for x:=0 to 628 do
begin
y:=round(((cos(x*pi/180))100)+100);
if y >100 then
y:=round(((cos(xpi/180))*100)+100);
Image1.Canvas.Pixels[x,y]:=clblack;

end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
xk:=0;
yk:=0;
Image1.canvas.pixels[xk,yk]:=clred;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
krok:=1;
image1.canvas.pixels[xk,yk]:=clgreen;
xk:=xk+krok;
yk:=round((-cos(xk*pi/180))100)+100;
if yk>100 then
yk:=round((cos(xkpi/180))*100)+100;
image1.Canvas.pixels[xk,yk]:=clred;
if xk>=628 then
xk:=0

end;

end.

ale co tu mozna teraz zmienic to nie mam pojecia

jedynie co mi swita to zamienic funkcje cosinusa na wzor tej krzywej. i wlansie tu problem jaki wzor krzywej : <

Jedna z krzywych Lissajous

  for t:=0 to 999 do Image1.Canvas.Pixels[100+Round(50*sin(1*t+pi/2)),120-Round(100*sin(3*t))]:=clBlack;

DZIEKI ! ^^ :)