[Code]
procedure SplitString(const Value: string; Delimiter: Char;
  Strings: TStrings);
var
  S: string;
begin
  S := Value;
  StringChangeEx(S, Delimiter, #13#10, True);
  Strings.Text := S;
end;

// and usage for instance...
procedure InitializeWizard;
var
  I: Integer;
  Strings: TStringList;
begin
  Strings := TStringList.Create;
  try
    SplitString('1;2;3;4', ';', Strings);
    for I := 0 to Strings.Count - 1 do
      MsgBox(Strings[I], mbInformation, MB_OK);
  finally
    Strings.Free;
  end;
end;