procedure ReadTextFile(AFile : String);

var

   SL : TStringList;

begin

      SL := TStringList.Create;

      try

         SL.LoadFromFile(AFile);    

        // strings are now in the stringlist object                    

     finally

         SL.Free;

     end;

end;