Fórum gauge x transferência de arquivos #310949

pessoal eu sei que esse assunto já foi debatido no forum mas nada se enquandra o que preciso.


eu tenho um sistema que eu armazeno arquivos nele qualquer tipo de arquivo so que esbarrei em dois problemas
1º na transferência o sitema fica estatico ou seja o usuario não sabe se parou ou não
2º somente no termino da trasnferência deveria ser dado uma msg. so que elea está sendo disparada junto com a ação salvar.


minha duvida como eu coloco um gauge mostrando o progresso da gravação e ao completar 100¬ dar o avido de arquivo armazenado ocm sucesso.

a procedure que dispara a ação é essa

procedure TForm_Armazena.ArmazenaArq(Sender: TObject);

begin

if DataSet_deposito.State in [dsedit, dsinsert] Then
DataSet_Deposito.FieldByName(´DataArmaz´).AsString:=(DBEdit_data.Text);
DataSet_Deposito.FieldByName(´categoria´).AsString:=(DBEdit_Categoria.Text);
DataSet_DepositoNomeArq.Value:=(DBEdit_NomArq.Text);
DataSet_depositoext.Value:=(DBEdit_ext.Text);
DataSet_depositoEndOrigem.Value:=(DBEdit_Origem.Text);
DataSet_depositoRef.Value:=(anexo);
DataSet_DepositoDeposito.LoadFromFile(anexo);
Application.ProcessMessages;
DataSet_Deposito.Post;
end;

por favor alguém pode me ajudar? já estou a varias noites parado nisso!