Как сделать так,чтобы форма когда достигала определенной точки,то она меняет направление?

[fishki123]

Помогите пожалуйста! У меня приложение уже написано,форма движется вниз,но не меняет направление,а т.е. не движется наверх. Как это сделать?

unit unit2;

{$mode objfpc}{$H+}

interface

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

type

  { TForm1 }

  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Form1.top=800 then form1.Top:=Form1.Top-3 else
Form1.Top:=form1.Top+3;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.width:=10000;
   form1.top:=0;
  form1.Height:=100;
end;

[WorldMaster]

Сделайте переменную например boolean dir = false;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Form1.top>=800 then dir :=true;
  if Form1.top<=10 then dir :=false;

if(dir) Form1.Top:=form1.Top-3;
else
Form1.Top:=form1.Top+3;
end;

Как то так