[Bargest]

Знаю что тут нужна математика

Ага, высшая математика:

Код:

for X1:= X to StopX-1 do
begin
    Y1 := y + round(sin(x1 * 0.1) * 10); // по Y Будет y-10..y+10; 0.1 для растяжения по оси X
    SetCursorPos(X1, Y1);
end;
y := y + 20;