[dec]

Hola,

Yo supongo que hacer algo así es demasiado también, ¿no?

Código Delphi [-]
 unit UMiStrings;
 
 interface
 
 uses
   Classes;
 
 type
   TMiStrings = class(TStringList)
     constructor Create;
   end;
 
 implementation
 
 { TMiStrings }
 
 constructor TMiStrings.Create;
 begin
   Self.Add('Una cadena');
   Self.Add('Otra cadena');
   Self.Add('Una cadena más');
 end;
 
 end.

O, cuando no, tal vez ir un poco más allá, o más acá... veremos a ver...

Código Delphi [-]
 unit UMiStrings;
 
 interface
 
 uses
   Classes;
 
 type
   TMiStringList = class(TStringList)
     constructor Create(const elementos: array of string);
   end;
 
 implementation
 
 { TMiStrings }
 
 constructor TMiStringList.Create(const elementos: array of string);
 var
   i: integer;
 begin
   for i := 0 to High(elementos) do
   begin
     Self.Add(elementos[i]);
   end;
 end;
 
 end.

Lo cual podría utilizarse más o menos de este modo:

Código Delphi [-]
 var
   LS: TMiStringList;
   SA: array[1..3] of string;
 begin
   SA[1] := 'Una cadena';
   SA[2] := 'Otra cadena';
   SA[3] := 'Una cadena más';
 
   LS := TMiStringList.Create(SA);
 
   ShowMessage(LS.Text);
 
   LS.Free;
 end;

No sé. Espero que lo dicho no sea tan todo disparatado como me lo está pareciendo ya...