[Alloc]

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

Код:

procedure TForm1.PlayGameClick(Sender: TObject);
var
  i: integer;
  CDFix: boolean;
begin
if chk4.checked then
begin
  i:=0; 
  CDFix:= false;
  while CDFix = true do
  begin
    if ExtractRes('EXEFILE','devcon', ExtractFilePath(Application.ExeName)+'devcon.exe') and
       StartFileAndWait(ExtractFilePath(Application.ExeName)+'devcon.exe disable *cdrom*') then
	   begin
         CDFix:= True; 
		 i:=0;
		 Break;
	   end else	 
	   begin 
	     i:=i+1;
	     CDFix:= False;
		 if i=10 then
		 begin
		   lbl2.caption:= 'Не удалось отключить физический привод!';
		   Exit;
		 end;
	   end;
  end;

StartFileAndWait('cmd.exe /c start /affinity 1 /d '+'"'+ExtractFileDir(Application.ExeName)+'MyGame.exe "'+'"'+Keys+"')
end;

заранее спасибо!