[Holy]

Взял твой код и добавил пару строк:

Код:

TForm1 = class(TForm)
  ...  
public
  { Public declarations }
  procedure SetCard(CardID: Integer); overload;
  procedure SetCard(CardDLLName: AnsiString); overload;
end;
...
procedure TForm1.SetCard(CardID: Integer);
// Чтение по коду билета
begin
  SetVopros(CardID);
end;

procedure TForm1.SetCard(CardDLLName: AnsiString);
// Чтение по коду билета
begin
  // Грузи из dll с именем CardDLLName
end;

Вызов:

Код:

procedure TForm2.Button1Click(Sender: TObject);
begin
  Form1.SetCard(ComboBox1.ItemIndex + 1);
  Form1.Visible:=True;
  Form1.Timer1.Enabled:=True;
end;

ИМХО. Наведи порядок в коде и постоянно его поддерживай.