[delphi] nie mozna znalezc pliku lub dysk jest uszkodzony??

zrobilem sobie programik do kopiowania folderów procedura kopiująca to to

procedure TForm1.CopyFolder;
var FOS:TSHFileOpStructA;
begin
with FOS do
begin
  Wnd:=Handle;
  wFunc:=FO_COPY;
  pFrom:=PAnsiChar(katalogFrom + '\*.*');
  pTo:=PAnsiChar(katalogTo + '\');
  fFlags:=FOF_NOCONFIRMATION + FOF_SILENT + FOF_ALLOWUNDO or FOF_NOCONFIRMMKDIR;
  lpszProgressTitle:='Kopiowanie...';
  fAnyOperationsAborted:=False;
end;
if SHFileOperation(FOS)<>0 then
  ShowMessage('Wystąpił błąd podczas kopiowania')
else
  if FOS.fAnyOperationsAborted then
   ShowMessage('Kopiowanie zostało przerwane');
end;

przy czym katalogFrom i katalogTo to zmienne tymu string.

do tego mam jescze doloczony komponent do ukrywania programu w Tray'u

program dobrze dziala caly czas ale jesli dam go do tray'a to po dluzszym czasie wywala bląd ze nie znaleziono pliku albo dysk jest uszkodzony , tak samo jest tez wtedy gdy dam pare razy program do tray'a i z powrotem go pokarze

czy mozliwe ze zmienne czyszczą się same gdy chowam program do tray'a??

tutaj link do programu mojego :) http://www.republika.pl/laggy/kopiarka.zip

a tutaj do komponentu do tray icona
http://www.republika.pl/laggy/Borland.zip

z gory dzieki za jakiekolwiek odpowiedzi<url></url>

EDIT: wlasnie dokladnie przetestowalem program i ten błąd pojawia sie wtedy gdy dam programik do tray'a a potem go wyswietle znowu to wlasnie wtedu sie bląd pojawia bo w tray'u nie ma bleda jest dopiero jak go 'wyciogne' z tray'a