StringGrid1.Cells[1, spins] := Edit1.text;
StringGrid1.Cells[2, spins] := inttostr(spins);
StringGrid1.Cells[3, spins] := IntToStr(beton);
StringGrid1.Cells[4, spins] := IntToStr(wager);
StringGrid1.Cells[5, spins] := IntToStr(loss);
StringGrid1.Cells[6, spins] := IntToStr(win);
StringGrid1.Cells[7, spins] := IntToStr(budget);
StringGrid1.Cells[8, spins] := mode;
StringGrid1.Cells[9, spins] := Label1.Caption;
StringGrid1.Refresh;