procedure TForm1.Button2Click(Sender: TObject);
var
i,k:Byte;
str,a:string;
m:array[1..3]of string;
begin
str:='100x200x300';
k:=1;
a:='';
for i:=1 to length(str) do
begin
if str[i]<>'x' then a:=a+str[i]
else
begin
m[k]:=a;
Inc(k);
a:='';
end;
end;
m[k]:=a;
{вывод для проверки}
for i:=1 to 3 do
Memo1.Lines.Add(m[i]);
end;