我的 record 如下,  

 
  TProgram = record
    Name: string;
    Length: TTime;        case TSource of
      tsInternet: (
        IP: array[1..5] of string;
        EmergencyFileLocation: string;
        MaxToleranceSec: Word; // type Word = 0..65535;
        );
end;

可是 compile 不過, 訊息如下, [Error] Main.pas(108): Type 'String' needs finalization - not allowed in variant record 請問怎麼解決?

改用 ShortString 吧    

  TProgram = record
    Name: string;
    Length: TTime;        case TSource of
      tsInternet: (
        IP: array[1..5] of string[255];
        EmergencyFileLocation: string[255];
        MaxToleranceSec: Word; // type Word = 0..65535;
        );
  end;