[Abikutin]

А, забыл её выложить.

Код:

procedure OcherInit(var Ocher : TOcher);
begin
  Ocher.First := nil;
  Ocher.Last := nil;
end;

используется ещё вот здесь

Код:

var Ocher: TOcher;
procedure TForm1.FormCreate(Sender: TObject);
begin
OcherInit(Ocher);
end;