procedure TForm1.copyClick(Sender: TObject);
var i : integer;
    a, b : String;
    F : TextFile;
    iPos,Ps,j, Ck:integer;
    Temp: array[0..17] of string;
begin
Assignfile(F, 'D:uplg vcr주문.txt');
Ck := 1;
Reset(F);
Readln(F, a);
Readln(F, a);
while not Eof(F) do begin
    iPos := Pos(#9,a);
    if iPos <> 0 then begin
       j:=0;
       while (a<>#9) and (length(a)>0) do begin
          if (length(a) =0) then begin
             readln(F,b);
             j:=0;
             a := a + b;
          end else begin
             Ps:=pos(#9,a);
             Temp[j]:=copy(a,1,TPos-1); //<-이 부분이 에러가 납니다
             a:=copy(a,TPos+1,length(a));//<- 이 부분이 에러가 납니다
             j:=j+1;
          end;
       end;
    end;
    readln(F,a);
end;
CloseFile(F);
end;

에러 메세지

Incompatible types 'String' and 'TButton'

제발 해결좀 부탁 드립니다...