[Abikutin]

В таком смысле.
Есть текстовый файл. В каждой строчке есть
Фамилия, Название, Год

Ну и есть переменные
FamIO:=Фамилия
NAzv:=Название
Year:= Год

Как это сделать?

[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;

[Страдалецъ]

Ну уж тогда все и делайте через StringList, зачем только половину?

Код:

Var
  FileData: TStringList;
  DataRec: TStringList;
  i: Integer;
begin
 FileData := TStringList.Create;
 FileData.LoadFromFile('D:\2\test.txt');
 DataRec := TStringList.Create;
 for i := 0 to FileData.Count - 1
 do begin
    DataRec.CommaText := FileData.Strings[i];
    FamIO := DataRec.Strings[0];
    NAzv := DataRec.Strings[1];
    Year := DataRec.Strings[2];
    end;
 DataRec.Free;
 FileData.Free;
end;