Dwa pytania o Delphi8

Mam kilka pytan odnośnie Delphi8. Będe ogromnie wdzięczny za pomoc.
1) Jak w StringGridzie zrobić aby po kliknięciu prawym przyciskiem myszy najpierw zostało zaznaczone wybrane pole pod kursorem myszy a potem wyświetlony Popup.
2) Mam procedurę która usuwa najwierw wszystki pliki txt z katalogu a potem sam katalog. Pliki txt służą do wczytania ich do stringgrida. Jeżeli nie wczytam pliku do stringgrida wszystko jest ok ale kiedy go wczytam to podczas usuwania pustego juz katalogu (bo pliki txt usuwa bez problemu) pojawia się komunikat o tym że jakiś proces używa tego folderu. Tylko jaki ??
Oto kod wczytywania pliku do stringgrida

procedure TForm6.arch(Sender: TObject);
var
F : TextFile;
x,y: Integer;
Reg : TRegistry;
ar,tempstr : String;
begin
  Reg := TRegistry.Create;
  try
    Reg.OpenKey('Software\SDI\Uczen', False);
    ar:=(Sender as TMenuItem).Caption;
    Assignfile (F,'Profile\'+Reg.ReadString('Active')+'\'+ar+'.txt');
    Reset (F);
    for X:=0 to StringGrid2.ColCount-1 do
    for y:=0 to StringGrid2.RowCount-1 do
    begin
      Readln (F, tempstr);
      StringGrid2.Cells[x,y]:=tempstr;
      Reg.CloseKey;
      Reg.OpenKey('Software\SDI\Uczen', True);
      Reg.OpenKey(Reg.ReadString('Active'), True);
      Reg.WriteString('arch', ar);
      StringGrid6.Cells[1,0]:=Reg.ReadString('arch');
      StringGrid6.Width:=153;
    end;
    Closefile(F);
  finally
    Reg.Free;
  end;
end;

Z góry dzieki za pomoc.