Перемещение файлов из ListBox

[Eugene_Stoun]

Подскажите, как изменить вот этот, код, чтобы перемещать файлы из ListBox в папку...Этот код только копирует, а мне нужно перемещение:

procedure TForm1.Button1Click(Sender: TObject);
var
  i   : integer;
begin
  CreateDir('C:\Служебная');
    begin
      for i := 0 to ListBox1.Items.Count-1 do
          if FileExists (ListBox1.Items.Strings[i]) then
            CopyFile (PChar(ListBox1.Items.Strings[i]), PChar('C:\Служебная'+ ExtractFileName (ListBox1.Items.Strings[i])), false);
    end;
end;

[Shouldercannon]

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  CreateDir('C:\Служебная');
  begin
    for i := 0 to ListBox1.Items.Count - 1 do
    begin
      if FileExists(ListBox1.Items.Strings[i]) then
      begin
        CopyFile(PChar(ListBox1.Items.Strings[i]), PChar('C:\Служебная'' + ExtractFileName(ListBox1.Items.Strings[i])), False);
        DeleteFile(ListBox1.Items.Strings[i]);
      end;
    end;
  end;
end;