用VAR F：TEXTFILE，当然可以，不过不如TStringList方便。
简单的例子，自己根据需要改一改。
procedure TForm1.Button1Click(Sender: TObject);
var
sl:TStringList;
i:integer;
sz: array [0..100] of String;
begin
sl:=TStringList.Create;
sl.LoadFromFile('c:/aa.txt');
for i:=0 to sl.Count-1 do begin
sz:=sz;
end;
end;
