[dr. F.I.N.]

-в форме тестирования(Unit3) не знаю как сделать так, чтобы кнопки
(т.е. соответствия) менялись местами(желательно рандомно)?

Вот процедура: Подаешь ей координату Y, с которой начинают располагаться объекты (координата X не меняется), подаешь отступ (offset) - расстояние между координатами Y двух соседних объектов, и список (TList) наполненный объектами, которые необходимо рандомно раскидать по вертикали. Не забудь указать в файе .DPR RandomIze.

Написано на коленке, но работь должно.

Код:

procedure ShowRandom(StartTop, Offset: Integer; ObjList: TList);
var
  x, i: Integer;
  tempList: TList;
begin
  if ObjList.Count = 0 then Exit;
  tempList := TList.Create;
  tempList.Assign(ObjList);
  x := StartTop;
  while tempList.Count > 0 do
  begin
    i := Random(tempList.Count);
    TControl(tempList.Items[i]).Top := x;
    Inc(x, Offset);
    tempList.Delete(i);
  end;
  tempList.Free;
end;