Code:

procedure split(Sta,cime:string;maksimum:Integer);
var i,z,duzina,broj:integer;
begin
sta:=sta+cime;
SetLength(rec,maksimum);
broj:=0;
duzina:=StrLen(pchar(sta));
for z:=0 to StrLen(pchar(rec)) do begin
rec[z]:='';
end;
for i:=1 to duzina do begin
if sta[i]=cime then begin
rec[broj]:=StringReplace(rec[broj],cime,'',[]);
rec[broj]:=StringReplace(rec[broj],cime,'',[]);
//menjajte dalje... (ovde npr. stavi da stavlja u neki tmp. array
showmessage(rec[broj]);
//ne menjajte dalje
broj:=broj+1;
end;
rec[broj]:=rec[broj]+sta[i];
end;
// www.crazymix.co.sr //
//end ;)
end;

Code:

  List := TStringList.Create;
  try
    while not Eof(F) do
      begin
        ReadLn(F, s);
        List.CommaText := s  
        for i := 0 to List.Count - 1 do
          //radi nesto sa elementom
      end; 
  finally
    List.Free;
  end;