Не работает удаление

var
fullFileName : string;
fullFileName1 : string;
begin
fullFileName:=slabel1.Caption;
fullFileName1:=slabel1.Caption;
 
ExtractFileName  (fullFileName);
DeleteFile(fullFileName);
 
 
ExtractFileDir     (fullFileName1);
RemoveDir(fullFileName1);
end;

function ExtractFileDirR ( const FullFileName1 : string ) : string;
begin
result:=ExtractFileDir(fullFileName1);
end;

FullFileName1:=form9.slabel1.Caption;
 
del1:=ExtractFileDirR(FullFileName1);
RemoveDir(Del1);

procedure TForm9.sBitBtn1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
      sMemo1.Lines.LoadFromFile(OpenDialog1.FileName);
      slabel1.Caption:=OpenDialog1.FileName;
      end;
end;

procedure TForm9.N2Click(Sender: TObject);
var
fullFileName : string;
 fullFileName1 : string;
Del1:string;
begin
fullFileName:=slabel1.Caption;
ExtractFileName  (fullFileName);
DeleteFile(fullFileName);
 
FullFileName1:=form9.slabel1.Caption;
 
dir:=ExtractFileDirR(FullFileName1);
if RemoveDirr(dir)
  then ShowMessage('TestDir удален')
  else ShowMessage('TestDir не удален, произошла ошибка : '+
                   IntToStr(GetLastError));
end;

{$R *.dfm}
var
fullFileName : string;
fullFileName1 : string;
   dir: string;
 
function ExtractFileDirR ( FullFileName1 : string ) : string;
begin
result:=ExtractFileDir(fullFileName1);
end;
 
function RemoveDirR ( Dir : string ) : Boolean;
begin
result:= RemoveDir(Dir) ;
end;