нет, всё-таки С - это для садо-мазо.

var sl : TStringList;
begin
sl := TStringList.Create;
if not FileExists(sFileName) raise Exception.Create('File not found: '+sFileName);
sl.LoadFromFile(sFileName);
// loop
sl.Free;
end;