czmu mi to nie działa?!?

mam taki skrypcik skopiowany z artykułu tylko ścieżki zmienione:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellAPI;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation



procedure TForm1.Button1Click(Sender: TObject);

var
  R : TSHFileOpStruct;
begin
 with R do
 begin
   Wnd:=Handle; // oznaczenie uchwytu
   lpszProgressTitle := 'Skopiuj plik....';// tutuł okienka
   wFunc:=FO_COPY;// opcja
   pFrom:='C:\Documents and Settings\User Name\Pulpit\p\errata.txt'; // z pliku
   pTo:='C:\Documents and Settings\User Name\Pulpit\DEFRAG\errataa.txt';// do pliku
   fFlags:=FOF_NOCONFIRMMKDIR;
 end;
SHFileOperation(R);

 end;
end.

i czemu mi wyskakuje błąd? No jestem początkujący i dopiero sie ucze więc to jest pewnie jakas pierdoła. Ale sam sobie z tym nie poradze..

Jaki błąd, gdzie? Troszkę więcej informacji.

Przy samej komplikacjie NIE MA problemów(NIE MA żadnego komunikatu na dole ekranu)ale wyskakuje błąd:Project Project1.exe reaised exception class EResNotFound with message 'Resource TForm1 not found'. Process stopped. Use Stept or Run to continue.
<ok> <Help>

W każdym module związanym z formularzem masz taki zapis

var
  Form1: TForm1;

implementation

{$R *.dfm}

U ciebie tego NIE MA zatem moduł nie jest skojarzony z żadnym Form1, stąd w/w komunikat.

ale to tylko komentarz nie?

To nie komentarz. To dyrektywa informująca kompilator że zasobów formularza ma szukać w pliku o rozszerzeniu *.dfm.

{ $R } - to jest komentarz
{$R} - to jest dyrektywa kompilatora

// odys mnie ubiegł

teraz to juz zupełnie żadnej reakcji
żaden błąd nie wyskakuje uruchamia się program ale i nic on nie robi:) nic mi nie kopiuje... wiem że jestem umolne dziecko no ale sie ucze..

a masz po

implementation



{$R *.DFM}

???

zadziałalo
użyłe skryoptu z innego art..

czestym problemem jest brak zer na koncu

Jak przenieść, skasować, zmienić nazwę katalogu