Чтение строк из файла

uses StrUtils;
// строку в список (explode)
procedure str_explode(const sDelimiter, sSrc :string; resStr: TStrings; lLimit :integer = -1; bWithEmpty :boolean = true);
// разбивает в массив строку sSrc по разделителю sDelimiter
// lLimit - предел длины массива (-1 - без предела)
// bWithEmpty - разрешать пустые строки
var i, ni, dl :integer;
begin
    dl := Length(sDelimiter);
    resStr.Clear;
    if Length(sSrc) = 0 then exit;
    if lLimit <= 0 then lLimit := MaxInt;
    i := 1;
    repeat
        ni := PosEx(sDelimiter, sSrc, i);
        if (ni = i) and not bWithEmpty then begin
            inc(i, dl);
        end else if (ni = 0) or (resStr.Count = lLimit) then begin
            resStr.add(Copy(sSrc, i, MaxInt));
            break;
        end else begin
            resStr.add(Copy(sSrc, i, ni - i));
            i := ni + dl;
        end;
    until false;
end;
 
function str_implode(rz:string; list:TStrings): string;
var i:integer;
begin
  result:='';
  if list.Count=0 then exit;
  for i := 0 to list.Count - 2 do result:=result+list[i]+rz;
  result:=result+list[list.Count-1];
end;

var s,s2:TStringList; i:integer;
begin
s:=TStringList.Create;
s2:= TStringList.Create;
s.LoadFromFile('адрес файла');
for i:=0 to s.Count-1 do begin
   str_explode(';',s[i],s2,-1,false);
   // s2 содержит список из поле1 поле2 и тп
   ShowMessage(s2.text); // выведем список в сообщение ибо ХЗ что с ним делать
end;
s.free;
s2.free;
end;

var pole:array of string;
i:integer;
//...
begin
//...
i:=0;
while length(s)<>0 do
begin
pole[i]:=copy(s,1,pos(s,';')-1);//первое поле
delete(s,1,pos(s,';'));
inc(i);//увеличиваем счетчик
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   AllData, Part : TStringList;
   i : Integer;
begin
   AllData := TStringList.Create;
   try
      AllData.LoadFromFile('myfile.txt');
      Part := TStringList.Create;
      try
 
         for i := 0 to Pred(AllData.Count) do
         begin
            Part.Clear;
            ExtractStrings([';'], [], PChar(AllData[i]), Part);
            // Тут обрабатываешь содержимое списка Part как тебе нужно. Он содержит слова из i-ой строки файла
         end;
 
      finally
         Part.Free; // Удаляешь тот список, в который разбивались строки
      end;
   finally
      AllData.Free; // Удаляешь список, в который читался файл
   end;
end;