procedure TForm1.Button1Click(Sender: TObject);
var
L_file:TStringlist;
L_String:TStringlist;
i:integer;
begin
L_file:=TStringList.Create;
L_string:=TStringList.Create;
L_string.delimiter:='|';
L_string.strictdelimiter:=true;
if OpenDialog1.Execute then
begin
L_file.LoadFromFile(OpenDialog1.FileName);
 end;

 for i:=0 to L_file.Count-1 do
begin
  L_string.delimitedtext:=L_file[i];

      cxGridTableView1.DataController.BeginUpdate();
      try

        cxGridTableView1.DataController.RecordCount := cxGridTableView1.DataController.RecordCount + 1;
        cxGridTableView1.DataController.Values[cxGridTableView1.DataController.RecordCount-1, cxGridColumn1.Index] := L_string[1]; //'Column1'; // если строковая
        cxGridTableView1.DataController.Values[cxGridTableView1.DataController.RecordCount-1, cxGridColumn2.Index] := L_string[2];//'нам жопа1';    // для CalcEdit ячейки
        cxGridTableView1.DataController.Values[cxGridTableView1.DataController.RecordCount-1, cxGridColumn3.Index] := L_string[3];//'нам жопа2'; // для CheckBox ячейки

      finally
        cxGridTableView1.DataController.EndUpdate();
      end;

end;

L_file.free;
L_string.free;

end;