ID3v1.1

[StanY]

Kann mir einer sagen, warum bei diesem Code bei jeder Variable der erste Buchstabe fehlt und wie ich es beheben kann?

Delphi-Quellcode:

type
  TID3v1Tag = record // (ID3v1.1)
                           // Länge in Bytes
    Id: String[3];         // 3
    Title: String[30];     // 30
    Interpret: String[30]; // 30
    Album: String[30];     // 30
    Year: String[4];       // 4
    Comment: String[29];   // 29
    Track: String[1];      // 1
    Genre: String;         // 1
                           // = 128
  end;

{ ... }

procedure TMp3Info.ReadID3v1Tag();
var
  tByte: Byte;
  F: TFileStream;
begin
  F := TFileStream.Create(Path+Name,fmOpenRead);
  if (F <> nil) then begin
    try
      F.Seek(-128,soFromEnd);
      F.Read(ID3v1Tag.Id,3);
      F.Read(ID3v1Tag.Title,30);
      F.Read(ID3v1Tag.Interpret,30);
      F.Read(ID3v1Tag.Album,30);
      F.Read(ID3v1Tag.Year,4);
      F.Read(ID3v1Tag.Comment,29);
      F.Read(ID3v1Tag.Track,1);
      F.Read(tByte,1);
      ID3v1Tag.Genre := cID3V1GENRE[tByte];
    finally
      F.Free;
    end;
  end;
end;