I have the following C program which reads a text file and then
waits for additional lines (like the UNIX Tail program). How can
this be done in Delphi?

Thanks
Rick
rlkra...@ingr.com

char work[32768];
FILE *fp;
long __keep_going;

        __Keep_going = 1L;

        fp=fopen(file,"r");//open file
        if (fp == NULL)
                return(1);

        while (fgets(work,1024,fp))
        {
                printf("%s",work);//print lines
        }

        rewind(fp);
...some lines missing here
        do {
                while (fgets(work,1024,fp))//wait for lines
                {
                        printf("%s",work);
                }
        } while (__keep_going != 0L);
        fclose(fp);
        return(0);