어디가 문제 일까요...
찾아 주세요... 밑에 소스 입니다...

unit uTest;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, VirtualGrid;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    copy: TButton;
    open: TButton;
    Button1: TButton;
    grdF01: TStringGrid;
    procedure openClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure copyClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}


procedure TForm1.openClick(Sender: TObject);
begin
memo1.lines.LoadFromFile('d:uplg vcr주문.txt');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   close;
end;

procedure TForm1.copyClick(Sender: TObject);
var i : integer;
    Temp : String;
    F : TextFile;
begin
Assignfile(F, 'D:uplg vcr주문.txt') ;
Reset(F) ;
Readln(F, Temp) ;
for i := 0 to 4 do
begin
   ExtractStrings([#9],[''],Temp,grdF01.Rows[i]);
end;
CloseFile(F);
end;

end.