Foro de elhacker.net

unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls, windows;

type

  { TForm1 }

  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer
      );
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure main();
    procedure movimiento ();

  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation


{$R *.lfm}

{ TForm1 }       
procedure TForm1.movimiento ();
begin
if Image1.Left >= 280 then
   begin
     Timer1.Enabled:=true;
     timer2.Enabled:=false;
   end
    else if Image1.Left <= 0 then
    begin
      Timer1.Enabled:=false;
      Timer2.Enabled:=true;
    end;
end;

movimiento(); // no compila, quiero que esto se ejecute solo sin que pase ningun evento.

end.