Como utilizar código de barras aleatório no Delphi XE7?

      procedure TForm4.GerarClick(Sender: TObject);
      begin
           GerarCodigo(LabeledEdit1.Text, Image1.Canvas);
      end;

     procedure TForm4.GerarCodigo(Codigo: String; Canvas : TCanvas);
     var s : string;
     i : Integer;
     begin
      // Gerar o valor para desenhar o código de barras
     // Caracter de início
     s := '790';
         for i := 4 to 13  do
              s := s + IntToStr(Random(10));
     LabeledEdit1.Text := s;
     end;