Dias entre datas continuo com problemas...

Tenho o procedimento abaixo onde pretendo usar para gerar as freqüências dos alunos, mais estou com dificuldades de passar uma variável com os dias para outra variável [b:f0febcb85c]vDias[/b:f0febcb85c].
no procedimento abaixo a variável [b:f0febcb85c]vDias[/b:f0febcb85c] está assumindo os dias [b:f0febcb85c]domingo, terça-feira e sexta-feira[/b:f0febcb85c]. gostaria de colocar todos os dias da semana dentro de listbox por exemplo e quando o usuário selecionasse os dias dentro da lista fosse retornado para uma variável, Ex [b:f0febcb85c]vDiasSeleciondos[/b:f0febcb85c] os números dos items selecionados e não o conteúdo.

[size=9:f0febcb85c]
procedure TForm1.btgerarClick(Sender: TObject);
var
vDias:String;
vData:TDateTime;
begin
vDias := ´1 3 6´;//pega os dias da semana
//Pega a data inicial do periodo
vData := Datai.Date;
//enquanto a data inicial for menor ou igual a data final
while vData 0 then
Memo1.Lines.Add(DateToStr(vData) +´ - ´+ FormatDateTime(´dddd´,vData));
vData:=vData+1;
end;

end;[/size:f0febcb85c]

se alguém solber de outra forma para gerar as datas por favor é de uma certa urgência!
Agradeço a todos!!