ABC,DEF,GHI,JKL (baris 1)
................
MNO,PQR,STU,VW,XYZ (baris 5)
.................
ABC,DEF,GHI,JKL (baris 8)

GHI JKL
VW XYZ
GHI JKL

var
 function PisahString(strSource,Delimiter: string ; _index: integer): string;
  var
   slTemp: TStringList;
 begin
  slTemp := TStringList.Create;
  try 
   slTemp.Text := StringReplace(strSource,',',#13,[rfReplaceAll]);
   result := slTemp[_index];
  finally
   slTemp.Free; 
  end;
 end;

......
        Lines := TStringList.Create;
        filename:=ExtractFilePath(Application.ExeName)+'report.txt';
        Lines.LoadFromFile(filename);
        Table1.Edit;
        Table1.Append;
        S  := Lines[1]; //misal baris 1
        P  := Pos(',',S);
        S2 := Copy(S, 1 ,P - 1);
        Table1.FieldByName('data_satu').Value:=S2;
        S  := Lines[3]; //misal baris 3
        P  := Pos(',',S);
        S2 := Copy(S, 1 ,P - 1);
        Table1.FieldByName('data_dua').Value:=S2;
        Table1.Post;
.......

function cRemoveStringWithByte(aString, aSepChar: string; aTokenNum: Byte):
    string;
var
  Token: string;
  StrLen,Num,EndofToken: Integer;
begin
  StrLen := Length(aString);
  Num := 1;
  EndofToken := StrLen;
  while ((Num <= aTokenNum) and (EndofToken <> 0)) do
  begin
    EndofToken := Pos(aSepChar, aString);
    if EndofToken <> 0 then
    begin
      Token := Copy(aString, 1, EndofToken - 1);
      Delete(aString, 1, EndofToken);
      Inc(Num);
    end else
      Token := aString;
  end;
  if Num >= aTokenNum then
    Result := Token
  else
    Result := '';
end;

cRemoveStringWithByte('ABC,DEF,GHI,JKL', ',', 2);