Drag-and-drop

TListBox(SENDER).BeginDrag(TRUE);

IF SENDER = Source THEN
  Accept:=true;

VAR
  ORIGEM,DESTINO,I: INTEGER;
  TEMP: TStringList;
begin
  IF SENDER = Source THEN
  BEGIN
    TEMP:= TStringList.Create;
    //GUARDA ORIGEM E DESTINO
    ORIGEM:=TListBox(SOURCE).ItemIndex;
    DESTINO:=TListBox(SOURCE).ItemAtPos(POINT(X,Y),FALSE);
    
    IF DESTINO > ORIGEM THEN
      DESTINO:=TListBox(SOURCE).ItemAtPos(POINT(X,Y),FALSE) + 1;

    //COPIA ITEM A ITEM DE DA LISTA ORIGINAL PARA TEMP
    //MENOS A ORIGEM QUE ELE SÓ COLOCA ONDE O MOUSE APONTA (DESTINO)
    FOR I := 0 TO TListBox(SOURCE).Count -1 DO
    BEGIN
      //SÓ ENTRA AKI UMA VEZ
      IF I = DESTINO THEN
        TEMP.Add(TListBox(SOURCE).Items[ORIGEM]);

      //ENTRA AKI SEMPRE
      IF I <> ORIGEM THEN
        TEMP.ADD(TListBox(SOURCE).Items[I]);
    END;
    // A FUNÇAO ItemAtPos, RETORNA O NÚMERO DE ITEMS +1 SE ONDE EU COLOCAR O MOUSE
    //   NÃO TIVER ITEM NENHUM, POR ISSO NÃO ENTRA NO FOR POIS VAI ATÉ COUNT -1
    IF DESTINO >= TListBox(SOURCE).Count  THEN
      TEMP.Add(TListBox(SOURCE).Items[ORIGEM]);

    //AGORA EU LIMPO O LISTBOX E COPIO O TEMP PARA ELE
    TListBox(SOURCE).Clear;
    TListBox(SOURCE).Items:=TEMP;
  END;
  //LIBERO O TEMP
  TEMP.Free;
END;