신호를 보내면

a;b;c;d;e;f;g;

이런식으로 와서
결과를  ; 로 구분하여 자르기 위한 선언으로

aMsg : Array[0..100] of String;
tmpStr,memotext : String;
Out_CpeIp : String;

이렇게 변수를 주고

if IFDeviceDataList <> nil then
   f_dm.Common.SendDataToAPS(IFCustomerData , IFDeviceDataList, nil, nil, ResultMessage, ResultSeqNo, WipNumSeqNo);
i := 0;
tmpStr := ResultMessage;
while Pos(';',tmpStr) > 0 do
begin
   aMsg[i] := Copy(tmpStr,1,Pos(';',tmpStr)-1);
   inc(i);
   tmpStr := Copy(tmpStr,Pos(';',tmpStr)+1,Length(tmpStr)-Pos(';',tmpStr));
end;
if Trim(tmpStr) <> '' then
begin
   aMsg[i] := tmpStr;
end;

이렇게 구분해서 읽어와서 그리드에 뿌려왔습니다.
근데 정보가

a
b
c
d
e
f
g

이런 식으로 오게 바뀌었는데 어떤 방향으로 코딩을 해가야 값들을 불러올 수 있을까요?_?