[marcoszorrilla]

Sin entrar en detalles has inicializado el "edit1" convenientemente.

Código Delphi [-]
 procedure TFrmBitacora.Button2Click(Sender: TObject);
var importe1:double;
    importeT:variant;
begin

Edit1.Text:='0';

importeT:=edit1.Text;
   dm.TbBitacora.First;//nos colocamos en el 1 registro
   while  not dm.TbBitacora.Eof do
      begin
      importe1:= dm.TbBitacora.FieldByName('importe').AsFloat;       importeT := importeT + importe1;
      edit1.Text := (importeT);
  
dm.TbBitacora.Next; //pasar al siguiente registro
 
end;

Un Saludo.