[odd]

Установи просто флаговую переменную. Типа так.

var loop: boolean;

loop:=false;
if key = GA_FIRE then loop := true;
while (loop) do
begin
// что-то делаем
key:=GetKeyPressed;
if key = GA_FIRE then loop:=false;
end;