procedure TForm1.btnOpenClick(Sender: TObject);
const
  Dir_Txt = 'Txt\';
var
  gFile, gFolder, Path, s : String;
  I, aPos : Integer;
  SrcDir, TrgtDir : String;    begin
  Path := ExtractFilePath(Application.ExeName);
 
  OpenDialogFile.Title := 'Open Order Information';
  OpenDialogFile.Filter := 'Txt files (*.txt)|*.TXT';
  If OpenDialogFile.Execute then
  Begin
    For I := 0 to OpenDialogFile.Files.Count - 1 do begin
      gFile := ExtractFileName(OpenDialogFile.Files.Strings[I]);
      gFile := ChangeFileExt(gFile,'.txt');
      s := OpenDialogFile.Files.Strings[I];          {去除最後一個'\',以讀取資料夾名稱}
      aPos := LastDelimiter('\', s);
      gFolder := Copy(s, 0, aPos);          SrcDir := gFolder   gFile;
      TrgtDir := Path   Dir_Txt   gFile;
      
      {若檔案存在,就先刪除}   
      If FileExists(TrgtDir) then
        DeleteFile(TrgtDir);          {把檔案 Copy 到目的地資料夾}
      CopyFile(PChar(SrcDir), PChar(TrgtDir), True);          {讀取每一行資料}
      ReadTxtFile(gFile);
    End; //End of I For Loop      End; //End of If OpenDialogFile.Execute
end;    procedure TForm1t.ReadTxtFile(pFile : String);
const
  Dir_Txt = 'Txt\';
var
  Path, TxtView : String;
  sList : TStringList;
  I : Integer;    begin
  sList := TStringList.Create;      Path := ExtractFilePath(Application.ExeName)   Dir_Txt   pFile;
  If FileExists(Path) then
  Begin
    sList.Clear;
    sList.LoadFromFile(Path);
    For I := 0 to Pred(sList.Count) do begin
      TxtView := sList.Strings[I];          ShowMessage(TxtView);
    End;
  End;
end;