задержка

[beygul]

Спасибо! Способ с таймером получился, даже без ввода переменной!

if key = ' ' then begin
yyy := yyy -1 * cos(angleX*pi/180);
Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
yyy := yyy +1 * cos(angleX*pi/180);
glDraw;
timer1.Enabled := false
end;