var
   NekiTxtFajl : TextFile;
   bafer : string;
begin
   AssignFile(NekiTxtFajl, 'c:\autoexec.bat');
   Reset(NekiTxtFajl);
   while not EOF(NekiTxtFajl) do
    begin
       ReadLn(NekiTxtFajl, bafer );
       ShowMessage(bafer );
    end;
  CloseFile(NekiTxtFajl);
end;