procedure TReport.GuardarClick(Sender: TObject);
var i : byte;
begin
MGuardar.Width := 0;
MGuardar.Height := 0;
MGuardar.Visible := True;
for i := 1 to 40 do
begin
MGuardar.Height:=MGuardar.Height+1;
MGuardar.Width:=MGuardar.Width+6;
MGuardar.Update;
Application.ProcessMessages;
end;
Edit3.SetFocus;
end;