Моделирование в Делфи

[pionerka]

Здравствуйте, ребята. И снова мне нужна ваша помощь. Как всегда вопрос возник по моему "обожаемому" предмету в универе -моделирование в делфи.
Задача по экологии, представить модель межвидовой конкуренции. Не пугайтесь, саму задачу я решила и даже построила график. Но теперь препод требует, что бы точки на графике бегали. То есть нужно использовать компонент timer или image.Зависимость в задаче идет от времени (t). Но как их реализовать эти компоненты в проге, я не пойму.
Вот собственно сам листинг задачи и график, который строится сейчас.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, TeeProcs, Chart, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Chart1: TChart;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button2: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    Label10: TLabel;
    Edit9: TEdit;
    Series2: TPointSeries;
    Series1: TPointSeries;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  N10,N20:real;
  N1,N2:array [0..1000] of real;
  t:real;
  r1,r2,k1,k2,a12,a21,dt:real;
  i:integer;
begin
 
  N10:=strtofloat(edit1.text);
  N20:=strtofloat(edit2.text);
   r1:=strtofloat(edit3.text);
   r2:=strtofloat(edit4.text);
   k1:=strtofloat(edit5.text);
   k2:=strtofloat(edit6.text);
   a12:=strtofloat(edit7.text);
   a21:=strtofloat(edit8.text);
   dt:=strtofloat(edit9.text);
 
  N1[0]:=N10; N2[0]:=N20;
  t:=0;   i:=0;
 
    repeat
 
    series1.AddXY(t,N1[i],'',clred);
    series2.AddXY(t,N2[i],'',clgreen);
    inc(i);
    t:=t+dt;
    N1[i]:=r1*N1[i-1]*(k1-N1[i-1]-a12*N2[i-1])/k1;
    N2[i]:=r2*N2[i-1]*(k2-N2[i-1]-a21*N1[i-1])/k2;
  until {(abs(n1[i]-n1[i-1])<0.5) or (abs(n2[i]-n2[i-1])<0.5)  }t>10
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
series1.Clear;
series2.Clear;
end;
 
end.

Безымянный1.jpg
И сама задача в архиве
межвид конк.rar
Заранее всем спасибо

[Бриит]

А можно поточнее что требуется от таймера

[pionerka]

вот примерно что требуется. Но как это переделать на мою задачу?Не могу додумать(((
межвид.rar

[Бриит]

о как прикольно это какие у тебя должны значения минятся

[pionerka]

N10,N20 с течением времени

[Бриит]

их лупануть рандомом

[pionerka]

можешь в коде проги показать?

[Бриит]

на 3й батон нажми посмотри если в том направлении идем или нет

[Бриит]

чем больше информации тем легче решить проблему

[pionerka]

Сообщение от Бриит

на 3й батон нажми посмотри если в том направлении идем или нет

Направление то, но у тебя график получается меняется по y вверх вниз.Просто оба графика двигаются вверх вниз.Не так