Delphi, циклы

[Coyot]

собственно задача: Напишите в Delphi программу с основной формой, содержащей окно списка и кнопку Go. Когда пользователь щёлкнет на кнопке Go, программа должна заполнить окно списка строками, состоящими из последовательных букв алфавита. Например, первые три строки должны быть ‘A’ , ‘B’, ‘C’.

помогите написать.
листинг с моим кодом(но он не работает):
procedure TForm1.BtnGoClick(Sender: TObject);
var
ATextFile: system.text;
A,B,C:string;
TextLine: String;
begin
A:='A';
ListBox.Clear;
Rewrite(ATextFile,'F:\1.TXT');
while not EOLN(ATextFile) do begin
writeln(ATextFile,A);
Readln(ATextFile,TextLine);
ListBox.Items.add(TextLine);
end; end;

[Don Karleone]

procedure TForm1.Button1Click(Sender: TObject);
var
  J: Char;
begin
  for J:='A' to 'Z' do
    ListBox1.Items.Append(J);
end;