[Alegun]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 sl: TStrings;
 FamIO, NAzv, Year, s: string;
 i {, indx} : integer;
begin
 sl:= TStringList.Create;
 sl.LoadFromFile('filename.txt');

// for indx:= 0 to sl.Count-1 do
//  begin
     s:= sl[ 0 {indx}];
     i:= Pos(',',s);
     FamIO:= Copy(s,1,i-1);
     Delete(s,1,i);
     i:= Pos(',',s);
     NAzv:= Copy(s,1,i-1);
     Delete(s,1,i);
     Year:= Copy(s,1,Length(s));
// end;

 sl.Free;
end;