[[egostar]]

Empezado por edusus

Yo no he pedido a nadie que trabaje por mi. Solo le he pedido como se le pide a un maestro, porque para mi bajo nivel todos son maestros, que me diga lo que ya sabe si lo sabe, y no para simplemente copiarlo sino para aprender en base a eso razonando el código. Esa es la forma como me resulta más fácil a mi aprender.
Imagínate que la ciencia pretendiera que cada científico empezara de cero sin darnos el conocimiento ya obtenido; en ese caso aun estaríamos pensando que la Tierra es el centro del Universo.

Insisto, para hacer lo que pides solo es necesario leer un poco. Aqui esta lo que necesitas y sin afan de ser presuncioso, lo hubieras podido hacer en el mismo tiempo con el que me contestas y sin perder mas tiempo.

Código Delphi [-]
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
{
  Img->Picture->LoadFromFile("BLACKSIREN0.BMP");
  Img->Width=50;
  Img->Height=50;
  Img->Stretch=true;
  Img->Top=100;
  Img->Left=10;
  Timer1->Interval=25;
  Timer1->Enabled=true;
}
  Image1.Picture.LoadFromFile('c:\temp\logo.BMP');
  Image1.Width    := 50;
  Image1.Height   := 50;
  Image1.Stretch  := True;
  Image1.Top      := 100;
  Image1.Left     := 10;
  Timer1.Interval := 25;
  Timer1.Enabled  := True;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
Var
  x,y : Real;
begin
{
  Timer1->Enabled=false;
  double x=Img->Left+30;
  double y=20*sin(x)+100;
  Img->Left=x;
  Img->Top=y;
  if(x <= 1500)
  Timer1->Enabled=true;
}
  Timer1.Enabled := False;
  x              := Image1.Left + 30;
  Y              :=20*sin(x);
  Image1.Left    := round(x);
  Image1.Top     := round(y);
  If x <= 1500 then
     Timer1.Enabled := True;
end;

Nota que es lo mismo que te puso OSKR pero en lenguaje Pascal.