[SergeNik]

К примеру есть у тебя некая процедура прорисовки чего либо зависящее
от параметров DX и DY к примеру.
Пусть прцедура называется
SomeDraw(DX, DY : Integer); // Это только к примеру
Тебе надо теперь просто навсего менять значения DX и DY и вызывать свою процедуру рисования. Например это можно сделать в таймере:

Procedure Timer1OnTimer(Sender: TObject);
begin
Inc(DX); // увеличиваем значение DX
if (DX mod 2) = 0 then Inc(DY); // увеличиваем значение DY если DX четное.
SomeDraw(DX,DY);
IF DX > SomeValue then DX = 0; // здесь следим чтобы значния не улетели
в вечность=)
IF DY > SomeValue then DY = 0;
end;

Затем чтобы отследить нажатия клавиш (Enter) к примеру - выставь значения для свойства формы KeyPreview в True. И отслеживай нажатие клавиш в событии формы OnKeyPress, OnKeyUp, OnKeyDown например:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
//Если нажат Enter то Запускаем/Останавливаем таймер
if Key = #13 then Timer1.Enabled := not Timer1.Enabled;
end;

Вот и все пожалуй =)