Extraer datos de un txt

[[AgustinOrtu]]

Yo te recomendaria hacer un bucle en el que llames a ShowMessage con cada string de tu TStringList, asi te das cuenta como carga tu archivo.

En tu ejemplo, la comparacion:

Código Delphi [-]
  if FicheroCausaExterna[i] =',' then

Siempre te va a dar falso, porque tu archivo tiene una sola linea que es la siguiente:

46589,7

Por lo tanto tu comparacion se traduce en

'46589,7' = ',' --> Falso

Aca te dejo mas info para que leas:
1. Delphi al limite: El objeto TStringList
2. Delphi Basics: TStringList command