игра про карты например (дурак)

[alex@x]

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

[Beermonza]

Вот у нас 36 карт, пусть они пронумерованы по-порядку:
номера 0, 1, 2, 3, 4 - это 6, 7, 8, 9, 10 пик
номера 5, 6, 7, 8 - это Валет, Дама, Король, Туз пик
...дальше по-порядку для всех мастей.
К каждому номеру нужен рисуночек. Может это уже все сделано и ненужно разжевывать?
В свойстве OnClick объекта (Image или сама форма) нужно написать следующее:

procedure ...........
Var
rnd: Byte;
Begin
Randomize; // чтобы каждый раз было по-разному
rnd:=Random(35); // присваиваем переменной случайное значение от 0 до 35
end;

правила задаются условиями If .. then .. else

[alex@x]

спасибо мне ето очень помогло