procedure TForm1.Button1Click(Sender: TObject);
begin
  // Arquivos estáticos
  if MoveFile('D:\teste\teste.txt', 'D:\teste2\teste.txt') then
    ShowMessage('Arquivo movido com sucesso!')
  else
    ShowMessage('Erro ao mover arquivo!');
 
  // A partir de outro componente ou variáveis.
  if MoveFile(PChar(Edit1.Text), PChar(Edit2.Text)) then
    ShowMessage('Arquivo movido com sucesso!')
  else
    ShowMessage('Erro ao mover arquivo!');
 
  // Exemplo de erro ao mover
  if MoveFile('D:\teste\teste_erro.txt', 'D:\teste2\teste_erro.txt') then
    ShowMessage('Arquivo movido com sucesso!')
  else
    ShowMessage('Erro ao mover arquivo!');
end;