Extraer datos de un txt

[tiqui_loquito]

Hola a todos,

Creo un txt donde guardo el id del paciente y una causa externa en un .txt, separado por una coma.
Ej: 46589,7

Solo guardo un dato en el archivo, no se guarda mas.

Aun soy nuevo en delphi y quisiera saber como extraer los datos.

Mi código es:

Código Delphi [-]
     FicheroCausaExterna := TStringList.Create; 
     Dir:= ExtractFilePath(application.ExeName)+'CausaExterna.txt'; 
     CausaExterna := Fdm.CausaExterna(Datos.CausaExterna); 
 
     if FileExists(Dir) then 
      FicheroCausaExterna.LoadFromFile(Dir) 
     else 
     begin 
      FicheroCausaExterna.Create; 
      FicheroCausaExterna.Add(IntToStr(Datos.Paciente)+','+CausaExterna); 
      FicheroCausaExterna.SaveToFile(Dir); 
     end; 
 
//Aquí quiero extyrar los datos, peor aun no se como
     for i:=0 to FicheroCausaExterna.Count-1 do 
      if FicheroCausaExterna[i]=',' then 
 
 
    if FicheroCausaExterna.Count > 0 then 
     begin 
      CausaExternaAnterior:= FicheroCausaExterna[0]; 
      CambioCauExterna := (CausaExterna<>CausaExternaAnterior); 
 
      if CambioCauExterna then 
      begin 
        FicheroCausaExterna.Clear; 
        FicheroCausaExterna.Add(CausaExterna); 
        FicheroCausaExterna.SaveToFile(Dir); 
      end 
     end;

Gracias