выдает ошибку

[ВрединкаИринка]

Помогите пожалуйста
выдает ошибку [Error] Unit1.pas(110): Undeclared identifier: 'Znak'

procedure TForm1.FormCreate(Sender: TObject);
var st: string; i,k,rec: word;
begin
if FileExists('dic.txt') then ValueListEditor1.Strings.LoadFromFile('dic.txt');
StringGrid1.Cells[0,0]:='Çíàê';
StringGrid1.Cells[1,0]:='Âåðîÿòíîñòü';
StringGrid1.Cells[2,0]:='Êîä';
// Çàïîëíèòü TRec è òàáëèöó èç ôàéëà
if FileExists('table.txt') then begin
AssignFile(tablekod,'table.txt');
{$I-}
Reset(tablekod);
rec:=0;
while not EOF(tablekod) do
begin
readln(tablekod);
inc(rec);
end;
CloseFile(tablekod);
Reset(tablekod);
SetLength(Spisok,rec);
StringGrid1.RowCount:=rec+1;
rec:=0;
//Âîññòàíàâëèâàåò òàáëèöó êîäîâ èç ôàéëà
while not eof(tablekod) do
begin
readln(tablekod,st);
i:=pos(':',st);
Spisok[rec].Znak:=copy(st,1,i-1);
k:=posEx(':',st,i+1);
Spisok[rec].Ver:=StrToFloat(copy(st,i+1,k-1-i));
Spisok[rec].Kod:=copy(st,k+1,Length(st)-k);
StringGrid1.Cells[0,rec+1]:=Spisok[rec].Znak;
StringGrid1.Cells[1,rec+1]:=FloatToStr(Spisok[rec].Ver);
StringGrid1.Cells[2,rec+1]:=Spisok[rec].Kod;
inc(rec);
end;
CloseFile(tablekod);
{$I+}
end;
end;

[Valio]

Чтотакое Spisok? Это запись или какойто компонент?

[BDA]

Во-первых, есть волшебная кнопочка # для оформления кода.
Во-вторых, как помочь-то? Перевести на русский смысл ошибки?
В приведенном куске кода нет описания структуры, в которой нет переменной Znak.

Valio, в последнее время пишу сразу после вас) Как так получается)