Pascal/Turbo Pascal - Leer palabra por palabra

¿Como hago para leer palabra por palabra en un archivo de texto en Pascal?. Necesito leer de un aruchivo de texto algo así:

Hola adios sol casa mesa teclado

Eso sería una linea de un archivo de texto, lo que quiero es ir leyendo palabra por palabra para guardarlo en campos de un registro.

Conozco las funciones Read y ReadLN pero ninguna me sirve ya que me leen toda la línea de golpe y me almacena toda la línea en un campo y eso no es lo que quiero.

Saludo: Hola adios cinco azul círculo teclado
Despedida:
Número:
Color:
Figura:
Objeto:

Lo que quiero es que pase esto:

Saludo: Hola
Despedida: adios
Número: cinco
Color: azul
Figura: círculo
Objeto: teclado

los espacio son tus delimitadores, lee una linea y copia todos los caracteres ahsta encontrar un espacio(eso es lo mas mas rapido q se me vienea la mente)
eje

Index:=1;
while((linea[Index]<>" ")and(index<>strlen(Linea)))do
begin
palabra:=palabra+linea[Index];
inc(Index);
End;

o algo asi, suerte.

Si, eso es lo que he hecho, gracias.