[YVitaliy]

Нетак, так так:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Randomize;
Ran := Random(10);
if Ran > 0 then
  begin
  if Num[Ran] = 1 then
    begin
    (FindComponent('Edit' + IntToStr(Ran)) as TEdit).Text := '?';
    Num[Ran] := 0;
    Nol := Nol - 1;
    if Nol = StrToInt(Edit1.Text) then
      begin
      Timer1.Enabled := False;
      ShowMessage('GO!');
      end;
    end;
  end;
end;

В любом случае символ '?' неуместен, или использовать ф-цию StrToIntDef