[roman]

Podría ser así:

Código Delphi [-]
var
  I: Integer;

begin
  for I := Low(dia) to High(dia) do
    Fechas.Lines.Add(StringReplace(dia[i], ' ', #13#10, [rfReplaceAll]));
end;

// Saludos