Elegir destino al Exportar!!

[ezequiel913]

hola gente!!!

El tema que tengo que resolver es: tengo una aplicacion que exporta los datos de un DBGrid a un TXT, ahora bien, yo en tiempo de diseño le asigno la ubicacion donde se tiene que guardar ese archivo y como se tiene que llamar. Lo que quiero es que cuando el usuario hace click en el boton de exportar tenga la posibilidad de elegir el destino del archivo y como se tiene que llamar.

este es el codigo que tengo para exportar:

Código Delphi [-]
procedure TBuscar.ExportarClick(Sender: TObject);
var
  i: Integer;
  s, TS: string;
  T: TextFile;
begin
  AssignFile(T,'.\CONSULTA.TXT');
  Rewrite(T);

  s:= '';
  for i:= 0 to DBGRid1.Columns.Count -1 do begin
   TS:= TS + DBGrid1.Columns[i].Title.Caption + TAB + TAB;
  End;
   Writeln(T, TS);
   Writeln(T);

    s:= '';
    for i:= 0 to DBGrid1.FieldCount - 1 do begin
     S := S + DBGrid1.Fields[i].AsString + TAB
    end;
    Writeln(T, s); //guardar campos formateados del registro

  CloseFile(T);

end;

TAB es el Tabulador, mas arriba tengo una constante TAB = char(9). lo uso para darle los espacios en el archivo.

gracias!!!
saludos!!!