Function CreateTokens(divider: char; s: String):ArrayOfString;
var it: Integer;
    ps: String;
begin
  SetLength(result,0);
  it:=1;
  ps:='';
  while it<=Length(s) do
  begin
    if s[it]<>divider then
      ps:=ps+s[it]
    else begin
      if Length(ps)>0 then
      begin
        SetLength(result, Length(result)+1);
        result[Length(result)-1]:=ps;
        ps:='';
      end;
    end;
    Inc(it);
  end;
  Setlength(result, Length(result)+1);
  result[length(result)-1]:=ps;
end;

hitungbrs:=FormUtama.MemoKonversi.Lines.Count;
  for i:=1 to hitungbrs do
  begin
    kolom:=CreateTokens('',FormUtama.MemoKonversi.Lines[i-1]);
    for j:=0 to Length(kolom)-1 do
      FormUtama.Memo2.Lines.Add(kolom[j]);
      x:=copy(FormUtama.Memo2.Lines[2],1,(length(FormUtama.Memo2.Lines[2])-3));
      y:=copy(FormUtama.Memo2.Lines[3],1,(length(FormUtama.Memo2.Lines[3])-3));
      z:=copy(FormUtama.Memo2.Lines[4],1,(length(FormUtama.Memo2.Lines[4])-3));
      FormUtama.MemoKonversi.Lines[i-1]:='x'+x+''+'y'+y+''+z;
      FormUtama.Memo2.Clear;
  end;

kolom:=CreateTokens('',FormUtama.MemoKonversi.Lines[i-1]);"

kolom:=CreateTokens('',FormUtama.MemoKonversi.Lines[i-1]);"