Запись с вариантами

[Rusl92]

Не могли бы вы сказать, где я ошибся
Прописываю в консоли Делфи:

program запись_с_вариантом;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Type
  EntryType = (Book, Magazine);
Type  Entry = Record
      Autor,Title :String;
      Year:    1..2000;
      case Tag:EntryType of
       Book: (Publisher,City:string); //выдает вот тут ошибку
       Magazine: (MagName:string; value:integer);

End;

var a:array[1..5] of Entry;

begin
   a[1].Autor:='Rusl';
   a[1].Tag:=Book;
   a[1].Publisher:='Yea';
   writeln(a[1].Publisher);

   a[2].Autor:='Diana';
   a[2].Tag:=Magazine;
   a[2].MagName:='111';
   writeln(a[2].magname);

   readln;

end.

[DCC Error] запись_с_вариантами.dpr(14): E2154 Type 'string' needs finalization - not allowed in variant record
[DCC Error] запись_с_вариантами.dpr(15): E2154 Type 'string' needs finalization - not allowed in variant record



не могли бы вы сказать, как правильно прописать запись с вариантом?
заранее спасибо!

[Anatole]

Сделай так :

case Tag:EntryType of
       Book: (Publisher,City:string[255]); 
       Magazine: (MagName:string[255]; value:integer);

End;