Descarregar um Listbox para um arquivo TXT

Estava aqui sem sono e resolvi criar uma rotina, no caso abaixo eu estou descarregando primeiramente num memo e depois num arquivo txt.
Espero que te ajude
Sem mais
ECS


var
Form1: TForm1;
listboxindex : integer;
lista : string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
R : integer;
F: TextFile;
begin
// processo de leitura do listbox e envio para o memo
R := 0;
lbTeste.ItemIndex:=0;
listboxindex := lbTeste.ItemIndex;
for R := listboxindex to lbteste.Count - 1 do
begin
listboxindex := listboxindex + 1;
lbteste.ItemIndex := listboxindex;
lista := lbteste.Items.Strings[R];
Memo1.Lines.Add(lista);
end;
lbTeste.ItemIndex:=0;
//neste metodo ele carrega todo que estiver no memo
// pega as strings geradas do memo para um arquivo txt
AssignFile(F, ´C:\Teste.txt´); // este arquivo ja deve estar criado
Rewrite(F);
WriteLn(F, Memo1.Text);
CloseFile(F);

end;

end.

o ListBox tem o Método SaveToFile

Valeu gente

Muito obrigado, era isso que eu precisava, as duas opções funcionaram, obrigado.