[alyan]

Сообщение от Alegun

Покажите пжлст массив key, его содержимое

как и просили

Код:

Ckey:=TFilestream.create('key.txt',fmCreate);
ckey.Position:=0;
Edit1.Text:='';




for i:=0 to 9 do
  begin
  key[i]:=random(255);
  Ckey.Write(key[i],sizeof(key[i])) ;