[AlexSku]

Вот генерация 20 элементов

Код:

var p: Single = 0.8;
procedure TForm1.FormCreate(Sender: TObject);
var I: Integer;
begin
  Randomize;
  for I:= 1 to 20 do
    if Random < p then StringGrid1.Cells[1,I]:= '1'
    else               StringGrid1.Cells[1,I]:= '0';
end;

(исправил ошибку, т.к. было всё наоборот)