procedure TForm1.btn1Click(Sender: TObject); var sFile,sLine: TStrings; r,c:Integer; begin sFile := TStringList.Create; sFile.LoadFromFile('d:\1.txt'); sLine := TStringList.Create; do begin sLine.CommaText := sFile[r]; do begin mmo1.Lines.Add(sLine[c