[[Lepe]]

No se puede.

En principio, el StringList está totalmente vacío, es decir, no tiene elementos, por tanto no se pueden inicializar.

Se puede crear un bucle, aunque para 4 elementos , es demasiado.

Código Delphi [-]
procedure Inicializa(Lista:TStringList; Elementos:integer; ValorInicial:string);
begin
if not assigned(Lista) then // si no está creada
  Lista := TStringList.Create;

for i:=0 to Elementos -1 do // como empieza en 0, siempre es uno menos.
 if i > Lista.Count-1 then  // si queremos más elementos de los que hay
  Lista.Add(valorinicial)
 else
  Lista[i] := valorinicial; // damos el valor inicial.
end;

saludos