Fórum Excluir arquivos sem usar caminho absoluto!! #335899

Boa noite srs.

Desejo vossa ajuda para usar a já conhecida função abaixo:

------------
procedure TForm1.Button2Click(Sender: TObject);
var
SR: TSearchRec;
I: integer;
begin
I := FindFirst(´c:\Teste\*.*´, faAnyFile, SR);
while I = 0 do begin
if (SR.Attr and faDirectory) <> faDirectory then
if not DeleteFile(´c:\Teste\´ + SR.Name) then
ShowMessage(´Não consegui excluir c:\Teste\´ + SR.Name);
I := FindNext(SR);
end;
end;
-----------

O X da questão é: enquanto eu apontar o caminho ´c:\Teste\*.*´ manualmente ela funciona corretamente, mas se tento inserir o caminho ja carregado em uma variável, como abaixo, ela não funciona.
Já busquei em todo o forum e não consigo resolver.


========================
procedure TfrmCentral.Button1Click(Sender: TObject);
var
SR: TSearchRec;
I: integer;
Dir : String;
begin
Dir := Q_2.FieldByName(´Caminho´).AsString;

I := FindFirst(Dir + ´\*.*´, faAnyFile, SR);
while I = 0 do begin
if (SR.Attr and faDirectory) <> faDirectory then
if not DeleteFile(Dir + SR.Name) then
ShowMessage(Dir + SR.Name);
I := FindNext(SR);
end;
===============


Grato pela ajuda :lol: