[Winny]

Вычислять надо по каким то координатам? Поясни. Если случайно, то можно пойти таким путём:

Код:

var
Cel,Drob:Integer;
begin
Randomize;
Cel:=Random(9);
Drob:=Random(9);
ShowMessage(IntToStr(Cel)+','+IntToStr(Drob))