Delphi - Leer archivo con 2 o 3 columnas y N filas

hola a todos!

alguien me puede ayudar a leer archivos de texto que a veces tiene 2 columnas y a veces 3 columnas y largo N??

gracias!

Aqui te mando un pequeño ejemplo, por si te puede servir. Pon solamente un formulario y un boton (para hacer pruebas, sobra...).
Un saludo.
********************************************

.....
const
fichero = 'd:\prueba.txt'; // Mejor que utilizar la constante, es mejor utilizar un cuadro de dialogo, y que elija el fichero a abrir.
var
Form1: TForm1;
fichero_logico : Textfile; // Necesitas un fichero logico

....
procedure TForm1.Button1Click(Sender: TObject);
var
cadena : string;
leida : string;
begin
assignfile(fichero_logico,fichero);
reset(fichero_logico);

while not eof(fichero_logico) do // Mientras no sea final de fichero
begin
readln(fichero_logico,leida); // Leo una linea, y la meto en leida

cadena := copy(leida,0,200); // leo desde la posicion 0 hasta la 200
cadena := trim(cadena); // quito espacios en blanco
showmessage(cadena);
// Con la variable cadena, haces lo que quieras, la recorres, o cambias
// el numero de caracteres a leer (en vez de 200 pones 20)........
// Y asi vas tratando tu fichero...

end;

end;

end.