delphi 字符串分割的有关问题

delphi 字符串分割的问题
字符串是 ‘字符串1’ AND ‘字符串2’ AND ‘字符串3’AND组成的；
请问怎么将字符串分割开来

[解决办法]

Delphi(Pascal) code

const s='Type like B AND Data like C AND Next like D';var i:integer; s1:string;begin  s1:=s+'AND';  while 1=1 do  begin    i:=pos('AND',s1);    if i=0 then       break;    memo1.lines.add(Trim(copy(s1,1,i-1)));    delete(s1,1,i+3);  end;end;