Fejlmelding ved tryk på 'nej' i opret mappe

Jeg bruger den her kode til at finde alle filer med navnet vinlist til en backup, ligeledes kopieres mappen images til backup.

var
FOS :TSHFileOpStruct;
begin
with FOS do                //kopier databasen til biblioteket backup
begin
Wnd  := 0;
wFunc := FO_COPY;
pFrom := pchar(ExtractFilePath(Application.ExeName) + '\vinlist*'#0);
pTo  := pchar(ExtractFilePath(Application.ExeName) + '\backup');
fFlags:= FOF_NOCONFIRMATION;
end;
SHFileOperation(FOS);
begin
with FOS do
begin
Wnd  := 0;
wFunc := FO_COPY;
pFrom := pchar(ExtractFilePath(Application.ExeName) + '\history*'#0);
pTo  := pchar(ExtractFilePath(Application.ExeName) + '\backup');
fFlags:= FOF_NOCONFIRMATION;
end;
SHFileOperation(FOS);
CopyDir('c:\programmer\program\images','c:\programmer\program\backup\images');

showmessagepos('dataerne er kopieret til backup',400,400);

Problemet er hvis man siger nej til at mappen backup oprettes så får man fejlmelding og til sidst beskeden at dataerne er kopieret til backup.

spørgsmål:

Er der ikke en bedre måde at gøre det på for at undgå den fejlmelding? at sige nej til backup burde ikke udløse en fejlmelding.