procedure TMainForm.Button7Click(Sender: TObject);
var
    sl:TStringList;

  function Split(Delimiter: String; DelimitedText: String):TStringList;
  var
    sl: TStringList;
     n: Integer;
     i: Integer;
     s: String;
  begin
    sl := TStringList.Create;

    s:= '';
    for i := 1 to length (DelimitedText) do begin
      if DelimitedText[i] = Delimiter[1] then begin
        if s <> '' then sl.Add(s);
        s := '';
      end
      else 
         s:= s+DelimitedText[i]; 
    end;
    if s <> '' then  sl.Add(s);

     // когда насмотритесь на результат закомментируйте следующую строку
      for n:=0 to(sl.Count-1)do Application.MessageBox(PChar(sl.Strings[n]),'',0);  
                                                                                                                      
      Result := sl;
  end;

begin
  sl := Split (';', ';123;456;789;');  // ставьте разделители сколько хотите и где хотите
        // вытаскиваем из sl
  sl.Free;
end;